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Preface 



This publication contains the program specifications 
and operating procedures for the cobol (on disk) pro- 
gramming system for ibm 1401, 1440, and 1460. In 
this pubhcation, the term cobol system refers to 
1401/1440/1460 COBOL (on Disk), program number 
1440-CB-073. The language specifications for the cobol 
system are contained in the Systems Reference Library 
DubHcation COBOL (on Disk) Specifications for IBM 
1401, 1440, and 1460, Form C24-3235. 

This publication is divided into two major sections- 
program specifications and operating procedures. The 
program specifications describe the cobol system. In- 
cluded in the section are such topics as a description of 
the System Control Program (the controlling element 
of the COBOL system ) , a description of the cobol com- 
piler, and a detailed description of the results of sys- 
tem operations. Although this section is directed pri- 
marily at the programmer, the machine operator 
should review the section for an understanding of the 
system. 

The second section, operating procedures, contains 
such topics as preparing processor jobs, changing file 
assignments for processor jobs, and running processor 
jobs. The last part of the section outlines the pro- 
cedures to follow in building a cobol system. For the 
convenience of both programmer and machine opera- 
tor, all control cards are summarized in Appendix I. 

Although the second section is directed primarily at 
the machine operator, it is recommended that the pro- 
grammer review the content of the entire section. The 
programmer should particularly note the parts of the 
section dealing with preparing processor jobs and 
changing file assignments. 



Related information 

The following Systems Reference Library publications 
contain additional information relating to cobol pro- 
gramming. It is recommended that these publications 
be available to the user for reference purposes. 



COBOL General Information Manual, Form F28- 
8053. 

COBOL (on Disk) Specifications for IBM 1401, 1440, 
and 1460, Form C24-3235. 

In addition, it is recommended that the user be fa- 
miliar with the following Systems Reference Library 
Autocoder publications. 

Autocoder (on Disk) Language Specifications for 
IBM 1401, 1440, and 1460, Form C24-3258. 

Autocoder (on Disk) Program Specifications and Op- 
erating Procedures for IBM 1401, 1440, and 1460, Form 
C24-3259. 

If the user's system is ibm 1401 or ibm 1460, it is 
recommended that the user have access to the follow- 
ing Systems Reference Library publications. 

Input/Output Control System (on Disk) Specifica- 
tions for IBM 1401 and 1460, Form C24-1489. 

Input/Output Control System (on Disk) Operating 
Procedures for IBM 1401 and 1460, Form C24-3298. 

Disk Utility Programs Specifications for IBM 1401, 
1440, and 1460 (with 1301 and 1311), Form C24-1484. 

Disk Utility Programs Operating Procedures for 
IBM 1401 and 1460 (with 1301 and 1311), Form C24- 
3105. 

If the user's system is ibm 1440, it is recommended 
that the user have access to the following Systems 
Reference Library publications. 

Input/Output Control System Specifications for IBM 
1440, Form C24-3011. 

Input/Output Control System Operating Procedures 
for IBM 1440, Form C24-3299. 

Disk Utility Programs Specifications for IBM 1401, 
1440, and 1460 (with 1301 and 1311), Form C24-1484. 

Disk Utility Programs Operating Procedures for 
IBM 1440 (with 1301 and 1311), Form C24-3121. 



Major Revision, February 1965 

This edition, C24-3242-2, is a major revision of and obsoletes 
C24-3242-1. 

Copies of this and other ibm publications can be obtained through ibm Branch OflBces. 

Address comments concerning the content of this publication to ibm Product Publications, Endicott, New York 13764. 
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Program Specifications 



This publication describes the program specifications 
and operating procedures used to assemble a machine- 
language program from a source program written in 
IBM 1401, 1440, and 1460 cobol language. It also de- 
scribes the operating procedures for building and 
modifying the cobol system on a disk unit. 

This system resides on a file=protected area of a disk- 
storage unit. By the use of the System Control Pro- 
gram, the controlling element of the cobol system, it 
is possible to stack tlie input to and output from a 
series of tasks. Further, the System Control Program 
allows the user to assign input/output devices for a 
defined set of logical files. 

The similarity between cobol and ordinary busi- 
ness English provides programmers with a convenient 
method for writing source programs. Source program 
statements are translated into machine language by 
the COBOL system. This permits the programmer to di- 
rect his attention primarily toward the solution of the 
problem, rather than toward the specific method of 
implementing tlie solution on the machine. 

Definition of Key Terms 

To clarify the meaning of special terms used in this 
publication, the following definitions are given. Stand- 
ard terms are defined in Glossary for Information Proc- 
essing, Form C20-8089, 

Assembler. The program that translates Autocoder 
symbolic statements into actual machine language. 
This process is called an assembly. 

Batched Files. Logical files whose contents represent 
one or more sequential sets of input to or output 
from the cobol system. 

Card Boot. A card deck, supplied as part of the Auto- 
coder system program deck, that is used to start all 
system operations. 

Job. An operation or series of operations to be per- 
formed by the cobol system. 

Logical Files. Input/output devices and/or areas used 
by the cobol system. 

Object-time. A term describing those elements or proc- 
esses related to the execution of a machine-language 
object program. 

Operation. A basic unit of work to be performed by 
one of the components of tlie system. 



Stack. A set of one or more jobs to be processed during 
the same machine run. 

System. The set of programs made up of the elements 
required for compiling, assembling, and/or execut- 
ing user-programs. 

[ ] Brackets contain an option that may be chosen. 
/ I Braces contain options, one of which must be 
chosen. 



Machine Requirements 

To process a cobol source program, the following 
minimum machine configurations are specified. 

An IBM 1401 System with: 

4,000 positions of core storage 

Advanced Programming Feature 

High-Low-Equal Compare Feature 

One IBM 1311 Disk Storage Drive 

One IBM 1402 Card Read-Punch - 

One IBM 1403 Printer 

An IBM 1440 System with: 

4,000 positions of core storage 

Indexing and Store Address Register Feature 

One IBM 1311 Disk Storage Drive 

One IBM 1442 Card Reader 

One IBM 1443 Printer 

An IBM 1440 System with: 

8,000 positions of core storage 

Indexing and Store Address Register Feature 

One IBM 1301 Disk Storage 

One IBM 1442 Card Reader 

One IBM 1443 Printer 

An IBM 1460 System with: 

8,000 positions of core storage 

One IBM 1311 Disk Storage Drive, or one ibm 1301 Disk 

Storage 
One IBM 1311 Disk Storage Drive 
One IBM 1402 Card Read-Punch 
One IBM 1403 Printer 

The system on which the object program is to be exe- 
cuted must have: 

1. A card reader or a disk file to load the object pro- 
gram resulting from the Output processor. 

2. Sufficient core storage to contain the program gen- 
erated by the cobol compiler. If the object program 
requires more than the available core-storage ca- 
pacity, either the program must be executed in sec- 



tions (overlays) or the job must be divided into 
multiple runs. 

3. The input and output devices defined in the file- 
control paragraph or the special-names para- 
graph. 

4. Sense switches v^hen they are referred to in the 
SPECIAL-NAMES paragraph. 

The COBOL system can use the following devices, 
if available: 

IBM 1444 Card Punch 

IBM 1447 Console without a buffer feature. 



The COBOL System 

The IBM 1401, 1440, and 1460 cobol system built by 
the user contains a System Control Program, the cobol 
compiler, the Autocoder assembler, Input/Output 
Control System ( IOCS ), and cobol macro instructions. 

System Control Program. The main function of the 
System Control Program is to analyze control-card 
information, d-etermine the specific control mode, 
and transfer program control to the appropriate por- 
tion of the system. 

COBOL Compiler. The cobol compiler portion of the 
system operates under the control of the System 
Control Program. The compiler translates the source 
program, written in the cobol language, into Auto- 
coder-IOCS symbolic statements. 

Autocoder Assembler. The Autocoder assembler por- 
tion of the COBOL system operates on the results of 
the COBOL compiler. The Autocoder library must 
contain IOCS and the cObol macro instructions. For 
a complete description of the Autocoder assembler, 
see the Systems Reference Library publication. 
Autocoder (on Disk) Program Specifications and Op- 
erating Procedures for IBM 1401, 1440, and 1460, 
Form C24-3259. 

IOCS. Standard input/output macro instructions are 
used by the cobol system for all cobol files. A com- 
plete description of IOCS is in either Input/Output 
Control System (on Disk) Operating Procedures for 
IBM 1401 and 1460, Form C24-3298, or Input/ 
Output Control System Operating Procedures for 
IBM 1440, Form C24-3299. 

COBOL Macros, cobol macros, a special set of macro 
instructions, are used by the cobol system to set 
permanent switches during the assembly for the use 
of other macros, to generate the cobol object-time 
subroutines, and to generate a limited set of inline 
expansions. 



System Control Program 

All system operations are initiated by a deck of cards 
supplied by ibm. This deck, called the Card Boot, reads 
in the first portion of the System Control Program from 
disk storage. Ultimately, the entire resident portion of 
the System Control Program is read into lower core 
storage. 

All control-type functions for the system are accom- 
plished by the System Control Program. These func- 
tions include; 

Assigning Input/Output Devices. Input/output opera- 
tions are coordinated with user-specified input/out- 
put devices. 
Updating the System. The System Control Program up- 
dates the system to the latest modification level or 

version. 
Selecting Appropriate Processor Runs. Through control 

cards supplied by the user, the System Control Pro- 
gram determines the operations necessary for the 
completion of a job. For example, a source program 
is coded in the cobol language, and the user specifies 
the end result of processing to be a machine-lan- 
guage object program. This would require that proc- 
essing be performed by the cobol compiler, the 
Autocoder processor, and the Output processor. The 
control card says in effect that the source program 
is coded in cobol, and that processing is to run 
through the Output processor. The System Control 
Program reads the control card and calls in the 
COBOL compiler. Processing takes place, and at com- 
pletion, control reverts to the System Control Pro- 
gram. The Autocoder processor is called, processing 
takes place, and at completion, control reverts to the 
System Control Program. The Output processor is 
called, processing takes place, and at completion, 
control again reverts to the System Control Program. 
Because the Output processor was the last processor 
to be selected, the System Control Program reads the 
control card for the next job. 

Logical Files 

A set of logical files, defined by the cobol system, is 
used for input/output operations. Each file has a spe- 
cific function and is assigned by the System Control 
Program to a particular device. The user can alter the 
nle-assigiiments by using asgn (assign) control cards. 
(See Changing File Assignments.) 

The logical files may be thought of as falling into one 
of four general categories. These categories are: 

Residence File 

Operation Files 

External Files 

Internal Files. 
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Residerice File 

SYSTEM File. The system file contains the System 
Control Program, the cobol Compiler Program, and 
the Autocoder Assembler Program. It is assigned to 
a fixed area in a disk unit. 



Operation Files 

CONTROL File. The control file contains cards or 
card images that send control information to the Sys- 
tem Control Program. It can be assigned to the card 
reader or the console printer. 

MESSAGE File. The message file contains information 
of primary interest to the machine operator. These 
messages are usually diagnostics relating to the oper- 
ating procedures and/or instructions to the machine 
operator. It can be assigned to the printer or the con- 
sole printer. 



External Files 

LIST File. The list file, generally associated with high- 
volume printed listings, contains information di- 
rected primarily to the source programmer. It can be 
assigned to the printer, or to disk storage, or it can be 
omitted. If the list file is assigned to a disk unit, the 
information is stored two sectors per printed line in 
the move mode. 

INPUT File. The input file contains source information 
to the processors. It can be assigned to the card 
reader or to any available area in disk storage. If the 
file is assigned to a disk unit, the card images must 
be stored one card per sector in the move mode. 

OUTPUT File. The output file contains the results of 
the operation or series of operations specified in the 
RUN card. It can be assigned to the card punch, or to 
disk storage, or it can be omitted. If the file is as- 
signed to a disk unit, any card images will be stored 
one per sector in the move mode. 

LIBRARY File. The library file is a disk-storage file 
that supports the Autocoder macro facility. This file 
contains the library table and library routines, such 
as IOCS. It is maintained by the Autocoder Librar- 
ian and used by the Autocoder Macro Generator. 
The LIBRARY file can be assigned to any available 
area in disk storage. 

CORELOAD File. The coreload file is a disk-storage 
file used by the Output and Execution processors of 
the Autocoder Assembler Program. The file contains 
an object program in the load mode. The coreload 



file is developed by the Output processor and is used 
by the Execution processor. 

Note. Only the external files input, output, coreload, and 
LIST can be batched. Batching will be performed when 
a series of jobs is processed without intermediate file 
assignments to these external files. When batch process- 
ing is performed, input to and output from the processors 
is stored sequentially within the files. 



Internal Files 

WORK Files. The work files (workI through workS) 
are mass-storage files that contain intermediate re- 
sults of the processors. The work files can be as- 
signed to any available area in disk storage. 



Control Cards 

The System Control Program recognizes six types of 
control cards. They are: 

RUN 

ASGN 

UPDAT 

NOTE 

PAUSE 

HALT 

Each type is punched in the Autocoder format. Appen^ 
dix I contains a summary of all specific control cards 
that the System Control Program recognizes. Included 
in Appendix 7 is a detailed description of the manner of 
punching each specific control card and valid entries 
for each of the general formats as discussed in the fol- 
lowing sections. 

RUN Card 

The RUN card indicates the portion(s) of the cobol sys- 
tem that are to be selected by the System Control Pro- 
gram. A RUN card is required for each job to be per- 
formed. The general format of the run card is: 



COBOL 



RUN 



THRU 



AUTOCODER 

OUTPUT 

EXECUTION 



If the optional part of the run card is omitted (thru 
AUTOCODER, THRU OUTPUT, or THRU EXECUTION), the Sys- 
tem Control Program assumes that only the named 
processor is to be selected. The thru option enables 
the System Control Program to call a series of proc- 
essors automatically. 

Valid entries for the run card are: 

COBOL RUN 

COBOL RUN THRU AUTOCODER 
COBOL RUN THRU OUTPUT 
COBOL RUN THRU EXECUTION 



ASGN Cards 

An ASGN card indicates to the System Control Program 
that a logical file is to be assigned to a specific input/ 
output device. An asgn card is used when the user 
wants a logical file assigned to an input/output device 
or area other than the assumed assignment of the Sys- 
tem Control Program, or when the user wants to 
change an assignment that he has previously made. 
The general format for an asgn card is: 

file-name ASGN j ^^^^ I 

The file-name is the specific logical file; device is the 
input/output unit to which the logical file is to be as- 
signed. Two examples for using an asgn card follow. 

The logical file, input, is to be changed from the as- 
sumed device assignment (reader 1) of the System 
Control Program to an area in disk storage. This area is 
to be on 1311 unit 3, beginning at address 000600 and 
extending to (not through) 000900. Note that the end 
address to be punched is one more than the area actu- 
ally used by the input file. The asgn card for this ex- 
ample is punched: 

INPUT ASGN 1311 UNIT 3, START 000600, END 000900 

The second example is when a logical file is to be 
omitted. (This option is valid only in specific cases.) If 
the OUTPUT file is to be omitted, the asgn card is 
punched: 



OUTPUT 



ASGN 



OMIT 



The user must leave blanks between items in the 
operand field where indicated in the specific formats. 
For example, if the operand is reader 2, there must be 
a blank between reader and 2. 

During a single stack of jobs, an assignment made by 
the user for a single logical file remains in eflFect until 
a HALT card or another asgn card is sensed for that par- 
ticular file. For example, an asgn card that specifies the 
INPUT file to be assigned to reader 2 causes the as- 
sumed assignment, reader 1, to be altered. The System 
Control Program will select reader 2 during a single 
stack until another asgn card for the input file is en- 
countered. 

UPDAT Card 

The UPDAT card is included in a package supplied by 
IBM for the purpose of updating the user's cobol sys- 
tem. It is prepunched in the following format: 

('all ) 

\ DELETE ( 

UPDAT phase-name, < HEADER > 

/insert \ 
(, PATCH ; 

This card (excluding delete) will be followed by the 
appropriate data cards. 



processor-name 
SYSTEM 



NOTE Card 

The NOTE card contains messages and/or instructions 
from the programmer to the machine operator. Process- 
ing is not interrupted when the System Control Pro- 
gram senses this control card. The contents of the note 
card are printed on the message file. The general for- 
mat of the NOTE card is: 



NOTE 



any message and/or instruction 



A NOTE card could be used when the programmer 
wants to direct that the output from a series of com- 
pilations be placed on the output file located on disk- 
drive 2. A NOTE card could be used, at the completion 
of processing the series of jobs, to tell the machine 
operator to remove the disk pack from drive 2. The 
message would be: 



NOTE 



REMOVE DISK PACK FROM DISK DRIVE 2 



PAUSE Card 

The PAUSE card contains messages and/or instructions 
from the programmer to the machine operator. When 
the PAUSE card is sensed, the System Control Program 
temporarily halts the system. The contents of the pause 
card are printed on the message file. Processing is re- 
sumed by pressing the start key. The general format 
for the PAUSE card is: 



PAUSE 



any message and/ or instruction 



One appHcation of the use of a pause card might be 
in the case where the input file for a job is located on 
disk unit 3. The programmer could inform the machine 
operator of this fact by using a pause card, telling him 
to ready the drive. The message would be: 



PAUSE 



READY THE PACK ON DISK DRIVE 3 



HALT Card 

The HALT card indicates to the System Control Pro- 
gram that processing has been completed. It is the last 
card of a stack. The contents of the halt card are 
printed on the message file. The general format for the 
HALT card is: 



HALT 



any message and/or identification 



COBOL Compiler 

The COBOL compiler, operating under the control of 
the System Control Program, translates source pro- 
grams written in the cobol language into Autocoder- 
lOCS statements. 
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In order that this translating process be accorri- 
pHshed, the compiler is divided into ten logical seg- 
ments, each of which is made up of phases. They are: 



specified. The accept subroutine reads the appropriate 
number of characters to fill this field. The linkage used 
for the accept subroutine is : 



Phases 


Function 


A 


Syntax Scan 


B 


Name Compression and Diagnostics 


C 


Data Prescan 


D 


Data Scan 


E 


IOCS 


F 


Procedure Prescan 


G 


Procedure Scan 


H 


Data-Descriptions Merge 


I 


General to Particular Macros 


J 


Macro Expander 



A complete description of the phases that comprise the 
COBOL compiler is contained in Appendix II. 



Autocoder Assembler 

The Autocoder assembler contained in the cobol sys- 
tem is the IBM 1401, 1440, and 1460 Autocoder sys- 
tem that is under control of the System Control Pro- 
gram. The Autocoder system is described in detail in 
the Systems Reference Library publication Autocoder 
(on Disk) Program Specifications and Operating Pro- 
cedures for IBM 1401, 1440, and 1460, Form C24-3259. 



IOCS 

Standard macro instructions of the Input/Output Con- 
trol System (IOCS) are used by the cobol system. De- 
tailed information pertaining to the macro system can 
be found in the Systems Reference Library publication 
Input/Output Control System (on Disk) Operating 
Procedures for IBM 1401 and 1460, Form C24-3298, or 
Input/Output Control System Operating Procedures 
for IBM 1440, Form C24-3299. 



COBOL Macros 

In addition to the IOCS macro instructions, the system 
includes twenty -five special cobol macros. Appendix 
III shows the macros, the names of the subroutines that 
are called by using the macros, and the reason for call- 
ing the routines. 

ACEPT 

The ACEPT macro generates the accept subroutine. 
The low-order position and the length of a field is 



B ZAX 




DCW 001 


(Reader) 


002 


(Console Printer) 


DCW 004 


(Pocket-1402) 


002 




000 




DCW 001 


(Unit-1442) 


002 




DCW NAMEl 




DCW @0@ 


(Not Subscripted) 


@1@ 


(Subscripted) 


DCW 009 


(Name Size) 



ALCOM 

The ALCOM macro generates the alphabetic-compare 
subroutine. This subroutine is used when two alpha- 
betic records with subfields are to be compared. The 
linkage used for the alphabetic-compare subroutine is : 



B YAQ 




DCW NAMEl 




DCW n 


(Not used) 


DCW nnn 


(Length of NAMEl) 


DCW NAME2 




DCW n 


(Not used) 


DCW nnn 


(Length of NAME2) 


DCW @bSS@ 


(NAMEl ^ NAME2) 


@b//@ 


(NAMEl = NAME2) 


@bTS@ 


(NAMEl > NAME2) 


@bUS@ 


(NAMEl < NAME2) 


@bTT@ 


(NAMEl > NAME2) 


@bUU@ 


(NAMEl < NAME2) 


DCW BRANCH LABEL 





DIVDE 

The DIVDE macro generates the divide subroutine. 
The subroutine is used as a substitute for the divide 
operation code. The linkage used for the divide sub- 
routine is: 

B DIV 
DCW NAMEl 

DCW NAME2 

DSPLY 

The DSPLY macro generates the display subroutine. 
The number of fields, the input device, the low-order 
position of each field, and the length of each field are 
specified. The display subroutine packs these fields se- 
quentially in a bufi^er area, and subsequently outputs 



them on the specified display device (the card punch, 
the printer, or the console printer). The linkage used 
for the display subroutine is: 



to an integer power. The linkage used for the expo- 
nentiation subroutine is: 



B ZDY 




DCW 000 


(Punch) 


001 


(Printer) 


002 


(Console Printer) 


DCW 004 


(Pocket-1402) 


008 




000 




DCW 001 


(Unit-1442) 


002 




DCW nnn 


(Number of names to be displayed) 


DCW N 


(Name of field) 


DCW @0@ 


(Not subscripted) 


@1@ 


(Subscripted) 


DCW nnn 


(Length of Name) 


DCW Nn 




DCW @0@n 




@l@n 




DCW nnn 





EDITl 

The EDITl macro generates the editing subroutine. 
This subroutine is used when editing which is not in- 
cluded within the 1401, 1440, or 1460 Central Process- 
ing Unit is used by the cobol program. Editing fea- 
tures that are not handled by the central processing 
units are: cobol zeros, floating plus or minus signs, 
single plus sign, and DB. When the editing function is 
completed, the subroutine returns to the location fol- 
lowing the parameters of this subroutine. The linkage 
used for the editing subroutine is: 



(Sending field) 

(Not subscripted) 

(Subscripted) 

(Label of cobol mask) 

(No COBOL mask) 

(Replace CR by DB) 

(Position of plus sign) 

(Neither editing feature desired) 

(Floating plus sign) 

(Floating minus sign) 

(Neither editing feature desired) 

(Receiving field) 

(Subscripted) 

Li = Length of edited field 

L2 = Length of field to be edited 



EXPIN 

The EXPIN macro generates the exponentiation sub- 
routine that is used when a number is exponentiated 



B 


ZET 


DCW 


NAMEl 


DCW 




1 


DCW 


NAME2 




000 


DCW @DbD@ 
@nnn@ 
@KbK@ 


DCW 


@+b+@ 
@-b-@ 
@KbK@ 


DCW 


NAME2 


DCW 







1 


DCW 


nnn 


DCW 


nnn 



B ZFZ 




DCW NAMEl 


(Name of base) 


DCW nnn 


(Number of decimals if NAMEl = GT)* 


DCW n 


(Subscript indicator) 


DCW nnn 


(Number of decimals in NAMEl) 


DCW NAME2 


(Name of power) 


DCW nnn 


(Number of decimals if NAME2 = GT)* 


DCW n 


(Subscript indicator) 


DCW nnn 


(Number of decimals in NAME2) 


DCW NAMES 


(Name of intermediate result field) 


DCW SIZEl 


(Length of field 1) 


DCW SIZE2 


(Length of field 2) 



*GT is equivalent to generated temporary result field. 

EXPNI 

The EXPNI macro generates the exponentiation sub- 
routine that is used when a number is exponentiated 
to a decimal power. The linkage used for the exponen- 
tiation subroutine is: 



B ZXZ 




DCW NAMEl 


(Name of base) 


DCW nnn 


(Number of decimals if NAMEl = GT)* 


DCW n 


(Subscript indicator) 


DCW nnn 


(Number of decimals in NAMEl) 


DCW NAME2 


(Name of power) 


DCW nnn 


(Number of decimals if NAME2 = GT)* 


DCW n 


(Subscript indicator) 


DCW nnn 


(Number of decimals in NAME2) 


DCW NAMES 


(Name of intermediate result field) 


DCW SIZEl 


(Length of field 1) 


DCW SIZE2 


(Length of field 2) 



*GT is equivalent to generated temporary result field. 

FGCOM 

The FGCOM macro generates the compare-figcon 
subroutine. This subroutine is used when a record 
with subfields is to be compared to a figurative constant 
(high value, low value, quote, and ALL alpha literal). 
The linkage used for the compare-figcon subroutine is: 



B YCL 




DCW NAMEl 




DCW n 


(Not used) 


DCW nnn 


(Length of NAMEl) 


DCW NAME2 




DCW n 


(Not used) 


T-\/^XT7 

LJK^ VV Xlllll 


(Length of NAME2) 


DCW @bSS@ 
@b//@ 
@bTS@ 
@bUS@ 
@bTT@ 
@bUU@ 


(NAMEl y^ NAME2) 
(NAMEl = NAME2) 
(NAMEl > NAME2) 
(NAMEl < NAME2) 
(NAMEl > NAME2) 
(NAMEl < NAME2) 


DCW BRANCH LABEL 




DCW 000 
001 
002 


(Neither figcon) 
(NAMEl figcon) 
(NAME2 figcon) 
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GOTOD 

The GOTOD macro generates the go-to-depending 
subroutine. This subroutine tests the value of data- 
name (NAMEl). If the value of data-name exceeds the 
number of branch levels given, or if it is equal to zero, 
the subroutine returns to the location following the 
parameters of this subroutine. Otherwise, the subrou- 
tine branches to the 1st, 2nd, . . ., nth branch label ad- 
dress if the value of data-name is 1, 2, . . ., n. The link- 
age used for the go-to-depending subroutine is: 

B ZGP 

DCW nnn (Number of branch labels) 

DCW NAMEl 



routine. The linkage used for the if-numeric sub- 



DCW nnn 
DCW 
1 



(Not subscripted) 
(Subscripted) 

DCW LABEL 1 (Branch labels) 



DCW LABELn 



IFALP 

The IFALP macro generates the if-alphabetic sub- 
routine. This subroutine is used when a field is to be 
tested to see whether it is alphabetic. If both the result 
of the test and tlie operator are true, the subroutine 
branches to the label address given as parameter 4. If 
either fails, the subroutine returns to the location fol- 
lowing the parameters of this subroutine. The linkage 
used for the if-alphabetic subroutine is: 

B YIP 

DCW NAMEl 

DCW 
1 

DCW nnn 

DCW BRANCH LEVEL 



DCW @$10@ 
@blO@ 



(Not subscripted) 
(Subscripted) 

(Length of NAMEl) 

(Alphabetic) 
(Not alphabetic) 



IFNUM 

The IFNUM macro generates the if-numeric subrou- 
tine. This subroutine is used when a field is to be tested 
to see whether it is numeric. If the result of this test 
agrees with the operator, the subroutine branches to 
the label address given as parameter 4. If the result 
does not agree with the operator, the subroutine re- 
turns to the location following the parameters of the 



routine is: 




B YIN 




DCW NAMEl 




DCW 
1 


(Not subscripted) 
(Subscripted) 


DCW nnn 


(Size of NAMEl) 


DCW BRANCH LABEL 




DCW @$16@ 
@bl6@ 


(Numeric) 
(Not numeric) 



INDIX 

The INDIX macro generates the subscript-index sub- 
routine. This subroutine is used by all cobol subrou- 
tines except DISPLAY. Its function is to test the index 
indicator parameter and substitute the address of the 
required index register in place of the switch. The 
linkage used for the subscript-index subroutine is : 



B 



ZSP 



DCW 001 

002 
003 



(XI) 
(X2) 
(X3) 



MULTY 

The MULTY macro generates the multiply subroutine. 
This subroutine is used as a substitute for the multiply- 
operation code. The linkage used for the multiply sub- 
routine is: 

B MULTY 
DCW NAMEl 
DCW NAME2 



MYALL 

The MVALL macro generates the move-all subroutine. 
This subroutine is used when a record with subfields is 
to be filled with a figurative constant, for example, 
ALL® ABC @. The figurative constant is moved into 
the record from left to right until the record is filled. 
When the record is filled, the subroutine returns to the 
location following the parameters of the subroutine. 
The linkage used for the move-all subroutine is: 

B ZML 

DCW NAMEl (Receiving field) 

DCW n (Not used) 

DCW nnn (Length of the field) 

DCW NAME2 (Figcon) 

DCW nnn (Length of figcon) 
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MVFTR 

The MVFTR macro generates the move-field-to-record 
subroutine. This subroutine is used when the record 
has subfields. The field is moved to the record area and 
justified according to parameter 7. When the field has 
been moved to the record, the subroutine returns to 
the location following the parameters of this subrou- 
tine. The linkage used for the move-field-to-record sub- 
routine is: 



subroutines. The linkage used for the subscript-1 sub- 
routine is: 



B ZMR 
DCW NAMEl 
DCW n 
DCW nnn 
DCW NAME2 
DCW n 
DCW nnn 
DCW @bbR@ 



(Field or record name) 

(Not used) 

(Length of field or record) 

(Field or record name) 

(Not used) 

(Length of field or record) 

(Right) 



@bbL@ (Left) 



SPLIT 

The SPLIT macro generates the stop-literal subroutine. 
This subroutine displays the specified literal or the 
address of the specified literal in the address register 
or on the console printer. The linkage used for the stop- 
literal subroutine is : 

B SLT 
DCW NAMEl 



SUBSl, SUBS2, SUBS3 

The SUBSl, SUBS2, and SUBS3 macros generate the 
subscripted subroutines. These three subroutines are 
used independently to compute an address for a data- 
name that has been subscripted. The address is com- 
puted according to the following equations, depending 
upon whether the data-name has 1, 2, or 3 subscripted 
variables. 

CA = B + (Vi - 1) Si 

/-■A — 13 L. nr ^^ c j^ /\r in c 

CA = B + (Vi - 1) Si + (V2 - 1) S2 + (Vs - 1) S3 

where: CA is the Computed Address 

B is the Basic Address of the data-name 

Vi, V2, Va are the subscripted variable values. 

Si, S2, S3, are the sizes of the basic areas. 

After the address has been computed, the subroutines 
return to the location following the parameters of these 



B XXJ 




DCW NAMEl 




DCW nnn 


(Size of table element) 


DCW NAME2 


(Address of subscripted variable) 


DCW LABEL 


(Address of field where computed 


or 


address is to be stored) 


001 


(XI) 


002 


(X2) 


003 


(X3) 


DCW nnn 


(Size of NAMEl) 



The linkage used for the subscript-2 subroutine is: 
B XXK 



DCW NAMEl 
DCW nnn 
DCW nnn 
DCW NAME2 
DCW NAMES 
DCW LABEL 

or 
001 
002 
003 

DCW nnn 

The linkage used 
B XXL 

DCW NAMEl 
DCW nnn 
DCW nnn 
DCW nnn 
DCW NAME2 
DCW NAME3 
DCW NAME4 
DCW LABEL 

or 
001 
002 
003 

DCW nnn 



(Size of table element 1) 
(Size of table element 2) 
(Address of subscripted variable 1) 
(Address of subscripted variable 2) 
(Address of field where computed 
address is to be stored) 

(XI) 
(X2) 
(X3) 

(Size of NAMEl) 

for the subscript-3 subroutine is: 



(Size of table element 1) 
(Size of table element 2) 
(Size of table element 3) 
(Address of subscripted variable 1) 
(Address of subscripted variable 2) 
(Address of subscripted variable 3) 
(Address of field where computed 
address is to be stored) 

(XI) 
(X2) 
(X3) 

(Size of NAMEl) 



XAMIN 

The XAMIN macro generates the examine subroutine. 
The data-name to be examined, the size and class of 
the data-name, switches defining the various options 
and literal 1 (and literal 2, if existing) are specified. 
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The examine subroutine replaces and tallies according 
to the options used. The linkage used for the examine 
subroutine is : 



B 


XMN 




DCW 


NAME! 


(Data-name) 


DCW 


000 


(Not subscripted) 




001 


(Subscripted) 


DCW 


nnn 


(Length of data-name) 


DCW 


009 


(Class is numeric) 




OOX 


(Class is alphanumeric) 


DCW 


ABC 


(A: R = Replacing 

T = Tallying 
B: 1=A11 

2 = Leading 

3 = Until First 

4 = First 

C: R = Replacing 
b = No Replacing) 


DCW 


LITl 


(Name of literal 1) 


DCW 


LIT2 


(Name of literal 2, if present) 




000 


(Not present) 



COBOL Compiler Output 

The output from the cobol compiler is on the devices 
specified in the asgn cards. The list file output, with 
an assumed assignment to the printer, is composed of: 

Source Program Listing. A listing of the cobol source 
program is output during the Syntax Scan section of 
the COBOL compiler. The listing is made up of the 
card images and their sequence. An asterisk (*) in 
the space between the card sequence and the card 
image is a sequence-error flag. An example of a 
source-program listing is shown in the sample pro- 
gram in Appendix IV. 

Dictionary. A cobol dictionary is output immediately 
following the source-program listing. The dictionary 
equates source special-names to symbolic names, 
source data-names to symbolic names, and source 
procedure-names to symbolic names. An example of 
a dictionary is shown in the sample program in 
Appendix IV. An M in the space between TYPE and 
NAME indicates that the particular name is used to 
refer to more than one field (multidefined) and re- 
quires qualification. 

Qualification Table. This table is output only when 
name qualification is stipulated in the source pro- 
gram. Names that require qualification and refer to 
only one specific field appear once in the qualifica- 
tion table. Names that require qualification and refer 
to more than one specific field appear more than 
once in the qualification table. 

If work5 (an optional logical file) is assigned, the 
output i's a listing of the Autocoder symbolic state- 



ments generated by the cobol compiler. The total 
number of diagnostic messages is output at the end 
of the listing. An end of compilation message is also 
output. 



COBOL Diagnostic Messages 

Incorporated within the compiler are three general 
types of COBOL diagnostic messages. These diagnostics 
are intended for use by the source programmer and 
are displayed on the device assigned to the list file. 

The first type of diagnostic message is name-asso- 
ciated. These messages appear as flags in the dictionary 
that associates cobol source names or cobol source 
qualified-names with the equivalent Autocoder names 
used by the compiler. These flags refer to such errors 
as COBOL keywords used as data-names. The following 
example of the equating of Autocoder and cobol 
names demonstrates how name-associated diagnostics 
appear. 



TYPE 


NAME 


SOURCE 


SPEC 


M All 


CARDS 


SPEC 


A12 


PRINTER 


SPEC 


A13 


OVERFLOW 


SPEC 


A14 


LAST-CARD 


FILE 


A15 


STATUS-FILE 


REC 


M A16 


CARDS 


DATA 


A17 


CARD-ORDER 


DATA 


A18 


DIGIT 


DATA 


A19 


RECORD 



In the preceding example, the cobol keyword digit 
was used as a name, and is flagged. In addition, the 
name cards was used more than once in the source 
program and is flagged as being multidefined. If cards 
has been qualified in all its uses, no error exists. 

The second type of diagnostic message is in the form 
of a listing, describing problems encountered while 
analyzing the sentence structure of the source pro- 
gram. An error in coBOL-pr escribed sentence structure 
automatically suspends compilation after the entire 
source program has been analyzed. In the listing, an 
assigned sequence number of the card containing the 
statement in error is related to the item expected by the 
compiler in contrast to the specific item actually en- 
countered. If, to continue analysis of the source pro- 
gram, the compiler drops any portion of the source 
program, the item(s) dropped are included as a part 
of the diagnostic message. In special cases, the ex- 
pected portion of the diagnostic message may be re- 
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placed by a language term or a rule describing a re- 
quirement of the COBOL language, such as 

ENVIRONMENT DIVISION MUST PRECEDE DATA DIVISION 

In correcting program errors indicated by this type 
of diagnostic, it is recommended that the programmer 
analyze the diagnostics in sequential order. Further, 
the correcting process can be greatly facilitated if the 
programmer compares the source program error-state- 
ment with the corresponding coBOL-prescribed format 
as outlined in the SRL publication COBOL (on Disk) 
Specifications for IBM 1401, 1440, and 1460, Form 
C24-3235. The user is reminded that any items that are 
dropped as a result of an error in sentence structure 
are not analyzed by the compiler prior to their de- 
letion. 

An example of analyzing cobol diagnostics is: 
COBOL Souce Program 

SEQUENCE CARD IMAGE 



30 ENVIRONMENT DIVISION. 

40 CONFIGURATION SECTION. 

50 SOURCE-COMPUTER. IBM-1401 NO-OVERLAP. 

60 OBJECT-COMPUTER. IBM-1401 NO OVERLAP. 

70 SPECIAL-NAMES. 



230 PROCEDURE DIVISION. 



280 PARAGRAPH2. 

290 IF COBOLZ IS EQUAL TO REFl OR LESS 

300 OR GREATER THAN 2 OR NOT LESS 

310 THAN 7 THEN GO TO COBOLN. 

320 PARAGRAPHS. 



COBOL Diagnostics 

SEQUENCE COMMENTS 

50 ' . ' =NO-OVERLAP= 

300 INVALID SUBJECT OR OBJECT =0R= 

First consider the diagnostic with the lowest se- 
quence number: 



50 



=NO-OVERLAP= 



The diagnostic means that in sequence number 50, the 
compiler expected a period. Instead of a period, no- 
overlap was sensed. Referring to the reference-format 



section of the cobol specifications publication, the 
source computer paragraph is defined. 



SOURCE-COMPUTER. 



IBM-1401 
IBM-1440 
IBM-1460 



xo-o\'erlap is not an entry for the source-computer 
paragraph. (However, no-overlap is an optional entry 
for the object-computer paragraph.) 

Consider the diagnostic: 

300 INVALID SUBJECT OR OBJECT =0R= 

The diagnostic indicates that the error is in sequence 
number 300. The compiler expected a valid subject or 
a valid object; or was sensed. Referring to the cobol 
specifications publication, the format for relational 
conditions is defined. 



( data-name f 

\ literal / 

\arithmetic expression ) 



(IS [ NOT ] 
)lS [NOTl 



IS [ NOT ] GREATER THANI 
IS [NOT] LESS THAN , 

IS [NOT] EQUAL TO ' 



( data-name | 

\ literal / 

\ arithmetic expression ) 

In the source statement (sequence 290 and 300), if 

COBOLZ IS EQUAL TO REfI OR LESS OR GREATER THAN 2 

OR NOT LESS there should be a data-name, or a literal, 
or an arithmetic expression after less for comparison 
with the implied subject, cobolz. Instead, or was en- 
countered by the compiler. 

The meanings of the symbols used in the sentence- 
structure-error diagnostic message are: 



Symbol 
PROCEDURE-NAME 

'SECTION' 

=RAN= 

(ALL TO MASTER) 

'RUNVLITERAL 



Meaning 

Blanks bound COBOL-Ianguage terms 
and rules 

Quotes bound literal values expected 
by the compiler. 

Equal signs bound literal values en- 
countered by the compiler. 

Parentheses bound literal values 
dropped by the compiler. 

The slash represents the word or. 



A AA^^-ir^■r,r^^ /^■<rr.i-.-.»-.T ,^r. ^C 4-1-.,-. r.,-.^l-^»-. ^^ r.*-,.., , ^4-, ,».^ ^^~^~ 

X \.yj.\uxt.xyji.xa.x ^j\.axxxjjxK^s yjx i.xxy^ o«_'in.\./in^»^-aLi u.v^LUXC-t^ixv./i 



diagnostic are: 
620 UNDECLARED NAME 



=TAPE-ORDER= (TAPE-ORDER) 



620 is the assigned sequence number of the card con- 
taining the statement in error; undeclared name is a 
language term, bounded by blanks, representing an 
error encountered by the compiler; = tape order = 
is the undeclared name, bounded by equal signs; and 
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(tape-order) is the item dropped, bounded by paren- 
theses. 

650 'TO' =ALL= (ALL TO MASTER) 

650 is the assigned sequence number of the card 
containing the statement in error; to' is the literal 
value, bounded by quotes, expected by the compiler; 
=ALL:= is the Hteral value, bounded by equal signs, 
encountered by the compiler; and (all to master) is 
the item dropped, bounded by parentheses. 

The third category o£ diagnostics consists of warn- 
ing messages inserted as comments cards in the Auto- 
coder instructions generated by the compiler. Messages 
of this category are preceded by either a single asterisk 
(*), or double asterisks (**). 

A message preceded by a single asterisk indicates 
that a possible error in logic has occurred. These 
errors may or may not be intentional. For example, 
Field A is longer than Field B. The program contains 
an entry to move Field A to Field B. The cobol com- 
piler recognizes this is irregular and issues the diag- 
nostic, lOO A-FIELD EXCEEDS B-FIELD, in the floW o£ AutO- 

coder instructions. If the instruction were issued for 
the purpose of truncating Field A in the move ( which 
would occm* in this instance), the diagnostic would 
serve only as a reminder to the programmer that he 
had issued an unusual move instruction. However, if 
the programmer unknowingly issued such a move, his 
error would be pointed out to him by the cobol com- 
piler. 

A message preceded by double asterisks indicates a 
more serious error. These errors should be corrected 



in order that the resulting object program operate 
correctly. For example, if the open verb is not used 
in the source program, the diagnostic. All file must 
BE OPENED, is output in the flow of Autocoder instruc- 
tions if a read or write instruction is used in the source 
program. This diagnostic can also appear when a file 
is declared in the data division and is not opened in 
the PROCEDURE DIVISION. This type of error would pre- 
clude the successful operation of an object program. 

If further explanation of the error condition is de- 
sired, the diagnostic message identifications (in these 
cases lOO and All) reference the diagnostic messages 
with explanatory notes shown in Figure 1. 

When the third category of diagnostics occurs in a 
compilation, one of two messages is printed on the 
printer. If the diagnostics were preceded by a single 
asterisk, the message 

TOTAL NUMBER OF DIAGNOSTICS — nUn 

is printed on the printer. 

If one or more of the diagnostics were preceded 
by double asterisks, the system temporarily halts, and 
the message 

NOTE NUMBER OF ERRORS NEEDING CORRECTION — nun 
TOTAL NUMBER OF DIAGNOSTICS — nun 
PRESS START TO CONTINUE START RESET AND 
START TO BYPASS JOB 

is printed on the printer. The user then has the option 
of continuing or bypassing the job by following the 
directions given in the message. The user is advised 
that diagnostics preceded by double asterisks may 
cause Autocoder source program errors to be generated 
by the cobol compiler. 
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Reference 


Division 


DIAGNOSTIC and Meaning 


AOl 


Data (IOCS) 


UNIT RECORD FILES MUST HAVE STANDARD RECORD SIZES 
Card Reader 80 characters 
Punch 80 characters 
Printer 100 or 132 characters (1403) 
144 characters or less (1443) 


A02 


Data (IOCS) 


UNIT RECORD FILES MUST HAVE FORM! RECORDS 
Blocked records are not permitted in unit record files. 


ACM 


Data (IOCS) 


FORM3 RECORDS NOT PERMITTED 

Unblocked variable length records are not permitted. 


A05 


Environment (iCX^S) 


ONLY TAPE FILES AAAY RESERVE ALTERNATE AREAS 

Tape files are the only files supported by the alternate area feature. 


A06 


Environment (IOCS) 


UNIT RECORD FILES MUST NOT RESERVE ALTERNATE AREAS 

All alternate areas needed for unit record flies are reserved automatically by the processor. Alternate 
areas must not be reserved for unit record files. Example: 

SELECT READER ASSIGN TO 1402-R RESERVE 1 ALTERNATE AREA 


A07 


Data (IOCS) 


FILE-LIMITS NOT SPECIFIED 

All disk file MD statements require a FILE-LIMITS entry. Each address must be 6 characters. 


A08 


Environment (IOCS) 


INVALID DISK UNIT 

The following are the only valid disk units: 

1301-Dor 1311-D:0, 1, 2, 3, or 4 


A09 


Data (IOCS) 


UNIT RECORD FILE/1301 -LABEL RECORDS MUST BE OMITTED 

The LABEL RECORDS clause must be specified as OMITTED for unit record files and/or 1301 . 


AlO 


Data (IOCS) 


FORM 4 RECORDS-BLOCK SIZE MUST BE IN CHARACTERS 

The block size on Form 4 records must be designated using the key word CHARACTER. Therefore, the 
following format for Form 4 records is invalid: 

BLOCK COhfTAINS 400 RECORDS 


All 


Procedure (IOCS) 


FILE MUST BE OPENED 

The OPEN verb is used to initiate the processing of one or more input and/or output files. At least one 
of the two clauses must be written. The clause can specify one or more files to be opened. 


A12 


Environment (IOCS) 


FILE MUST BE SELECTED 

Eoch file to be processed by the object program must be named in a SELECT file-name entry and the 
designated name must be unique within the source program. 


A13 


Data (IOCS) 


BLOCK SIZE MUST NOT EXCEED 4 DIGITS 

The maximum block size that can be specified may contain four digits including leading zeros. 


AM 


Data (IOCS) 


RECORD SIZE MUST NOT EXCEED BLOCK SIZE 

A record size specification must always be smaller than the block size specification that is to contain the 
record . 


A15 


Data (IOCS) 


DATA RECORD DECLARED WITHOUT SPECIFYING SIZE 
01 following a file description not declared legally. 


A16 


Data (IOCS) 


INVALID FILE LIMITS 

The upper file limit must be the address of the first sector of the last physical record in the file. 


DOl 


Data 


PICTURE EXCEEDS 30 CHARACTERS 

A picture may not contain more than 30 characters. Example: The picture 9(450) contains six actual 
characters, and therefore, will be properly declared. If the above picture were written with 450 9's, it 
would not be a valid picture description and the picture would be dropped by the processor. 


D02 


Data 


CONFLICTING EDITING CLAUSES 

Zero suppress, check protect, and float dollar sign edit clauses are mutually exclusive. The last clause 
specified is the one chosen for use. It is suggested that the more complex editing be done using a picture 
clause. 


D03 


Data 


MUST NOT SPECIFY DECIMAL AT GROUP LEVEL 
Only elementary items can use this option. 


D04 


Data 


MUST NOT SPECIFY EDITING AT GROUP LEVEL 
Only elementary items can use this option. 
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Reference 


Division 


DIAGNOSTIC dhd Meaning 


DOS 


Data 


CONFLICT BETWEEN PICTURE AND SIZE CLAUSE 

If there is a contradiction between a size clause and a picture clause, the picture specifications take 
precedence over the size clause. For example, the clause "SIZE IS 10" would conflict with a picture 
defined as 9(6). In this case, a size of 6 would be used by the compiler for compilation. 


D06 


Data 


CONFLICT BETWEEN PICTURE AND POINT LOCATION CLAUSE 

If there is a contradiction between point location and a picture clause, the picture specifications take 
precedence over the point location clause. 

Example: PICTURE IS 9V99 
POINT LEFT 3. 

In this example, the point will precede the second character from the left, as specified by the picture. 


D07 


Data 


CONFLICT BETWEEN PICTURE AND CLASS 

If there is a contradiction between class and a picture clause, the picture specifications take precedence 
over the class clause. 

Example: PICTURE IS 999 

CLASS IS ALPHAMERIC. 

In the example, the picture is specified as numeric; therefore, the class must also be specified as numeric. 


DOS 


Data 


CONFLICT BETWEEN PICTURE AND EDITING CLAUSE 

If there is a contradiction between editing and a picture clause, the picture specifications take precedence 
over the editing clause. 

Example 1: PICTURE IS 999 CHECK PROTECT. 

(CHECK PROTECT clause Is ignored.) 

Example 2: PICTURE IS $$9 CHECK PROTECT. 
(Floating dollar sign will be used.) 


D09 


Data 


ELEMENTARY ITEM MUST HAVE SIZE OR PICTURE CLAUSE 

An element of data (elementary item) is a piece of data which is never further divided. Each elementary 
item must have either SIZE clause or PICTURE clause designation in the DATA DIVISION. 


Dll 


Data 


A RECORD MUST NOT EXCEED 999 CHARACTERS 
All records may be as large as 999 characters. 


D12 


Data 


RLI MUST BE 4 CHARACTERS 

The Record Length Indicator (RLI) must be four characters in length including leading zeros. 


013 


Data 


RECORD SIZES WITHIN THIS FILE MUST NOT CONFLICT 

More than a single 01 level within a FD or MD is considered implied redefinition and results in a redefini- 
tion of the first 01 . If the record size is variable, the DEPENDING clause should be used. This diagnos- 
tic was given because record lengths within the FD or MD were not the same and could cause an error at 
object time. 


DM 


Data 


INVALID EDITING 

Illegal editing was specified and all editing for the entry in error was omitted by the processor. Some 
conditions which would cause invalid editing are: (1) invalid symbols in a picture clause; (2) size of 
editing field exceeds 120 characters; (3) high-order single zero suppress; (4) DB (debit symbol) or CR 
(credit symbol) not in right- or left-most position. 


D99 


Data 


PICTURE CLAUSE INVALID WITH GROUP ITEM 

Only elementary items may be described with the PICTURE clause. 


E03 


Environment 


HARDWARE DEVICE MULTI-DEFINED 

Hardware devices may not be multi-defined. The example below illustrates two combinations that will 
cause errors which will cause a multi-defined device. 

Statements (1) and (2) or (1) and (3) would cause a multi-defined device because 1402-P is assigned to 
PUNCH in SPECIAL-NAMES. Statements (2) and (3) excluding statement (1) would cause a multi-defined 
device because two files cannot be assigned to the some hardware device. 

Example: SPECIAL-NAMES. 

(1) 1402-P, 4 IS PUNCH. 
INPUT-OUTPUT SECTION. 
FILE CONTROL. 

(2) SELECT FILE2 ASSIGN TO 1402-P 

■ (3) SELECT FILE3 ASSIGN TO 1402-P. 


E51 


Procedure (IOCS) 


I/O TABLE OVERFLOW 

The maximum number of files is 12. Some error conditions cause extra entries to be made in the I/O table. 


E52 


Procedure (IOCS) 


WRITE REFERENCES INPUT FILE 

Only OUTPUT and INPUT-OUTPUT files can be referenced by the WRITE verb. Correct ttie OPEN state- 
ment or the WRITE statement. 



Figure 1. Diagnostic Messages (Part 2 of 4) 
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Reference 


Division 


DIAGNOSTIC and Meaning 


E53 


Procedure (IOCS) 


INVALID KEY USED IN WRITE ON INPUT -OUTPUT FILE 

This type file requires a READ prior to each unique WRITE on the file. The INVALID KEY statement 
associated with the READ obviates the need for the INVALID KEY option of the WRITE statement. 


E54 


Procedure (IOCS) 


READ REFERENCES OUTPUT FILE 

Only INPUT and INPUT-OUTPUT files may be referenced by the READ verb. Correct the OPEN or the 
READ statement. 


FOl 


Procedure 


END STATEMENTS NOT ASSOCIATED WITH THE FOLLOWING FILES 

There must be at least one implicit or explicit AT END statement associated with every READ statement. 
Once on AT END statement has been executed, an atterr^t to READ from the associated file will constitute 
an error unless a subsequent CLOSE and OPEN have been executed for that file. 


HOI 


Procedure 


INVALID USE OF SUBSCRIPTING 

This diagnostic occurs when invalid, subscripting is used without an OCCURS clause. 

Error Example: DATA DIVISION. 

FILE SECTION. 

01 NAMEl 

02 NAME2 (***NOTE) 

03 NAME3 

PROCEDURE DIVISION. 

(***NOTE) MOVE NAME2 (3) TO WORKAREA 
The procedure statement specified subscripting; therefore, NAME2 must contain an OCCURS clause. 


100 


Procedure 


A-FIELD EXCEEDS B-FIELD 

The field being moved is larger in size than the receiving field. The field being moved will be truncated 
to the length of the receiving field. 


101 


Procedure 


NON-NUMERIC FIELD USED IN COMPUTATION 

This diagnostic is given on arithmetic fields that are not defined as numeric and are referred to by IF 
POSITIVE or IF NEGATIVE. 


102 


Procedure 


EDIT MASK TOO SMALL 

A GIVING, COMPUTE, or MOVE using edited fields too small to accept the field being placed into the 
edited mask will get this diagnostic. 

Example: Moving field 12345 to an edit mask $$ 9.99 is erroneous because this edit mask will 
accept only four characters. 


103 


Procedure 


A-FIELD EXCEEDS 18 DIGITS 

Fields used in arithmetic computations and expressions must not exceed 18 digits. 


105 


Procedure 


B-FIELD EXCEEDS 18 DIGITS (Refer to 103) 


106 


Procedure 


NON-NUMERIC FIGCON USED IN COMPUTATION 

No figurative constants can be used in arithmetic computations. 


107 


Procedure 


INVALID SOURCE 

When meaningless source is compiled, this diagnostic will be given followed by a STOP RUN expansion. 


108 


Procedure 


INTERMEDIATE RESULTS MUST NOT EXCEED 20 DIGITS 

Fields requiring decimal alignment in arithmetic computations must not have intermediate results that 
expand beyond 20 digits. 


109 


Procedure 


ALPHANUMERIC TO NUMERIC MOVE 

This diagnostic will be given if a group item (declared as numeric) is moved to an elementary numeric field. 
All group items are classed as alphanumeric. This is a warning diagnostic and does not necessarily con- 
stitute an error. 


no 


Procedure 


INVALID SOURCE-IN PRECEDING STATEMENT 

This diagnostic is given when meaningless source is compiled in conjunction with the DISPLAY verb. 

Example: DISPLAY data -name/literal ON (name) instead of the correct format 
DISPLAY data -name/literal UPON (name) 


111 


Procedure 


ROUNDED EXCLUDES LEFT JUSTIFY CLAUSE 

When left justification is used in conjunction with the ROUNDING option, justification ignored during 
compilation. 
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Reference 


Division 


DIAGNOSTIC and Meaning 


112 


Procedure 


GROUP ITEMS MUST NOT HAVE IMPLIED DECIMAL 

Decimal alignment is neglected when group items classed as numeric are moved. 


113 


Procedure 


GROUP ITEM MUST NOT BE USED IN COMPUTATION 
Only elementary items can be used in arithmetic computations. 


115 


Procedure 


INVALID USE OF GROUP ITEM 

1 . When the conditional IF POSITIVE or IF NEGATIVE is used, the field referred to must be elementary. 

2. When the conditional IF NUMERIC or IF ALPHABETIC is used, the field referred to should be 
elementary. If the fields are not elementary, the diagnostic is then given as a reminder to review 
possible zoning in the units position of the fields being tested for these conditions. 


117 


Procedure 


ITEM EXCEEDS 20 DIGITS 

Numeric fields set up for computational purposes must not exceed 20 digits. When a numeric field 
exceeding 20 digits is compared, the diagnostic is given and instructions to perform a non-numeric compare 
are given. 


118 


Procedure 


CLASS CONTRADICTION 

This diagnostic is given as a reminder to review classes of fields being operated on which have contra- 
dicting classes. For example, a numeric field compared to a non-numeric figurative constant would cause 
this diagnostic to be given. 


119 


Procedure 


INVALID USE OF EDITING 

Editing must be done on data fields using procedural statement with the appropriate verbs. For example: 

1. The field referred to by the ACCEPT verb must not hove editing. 

2. The name of the integer that designates the number of times a PERFORM statement is to be executed 
in a PERFORM verb TIMES statement must not have editing symbols. 

3. Sending field must be numeric and greater than 1 digit. 


120 


Procedure 


SIZE OF LITERAL MUST EQUAL 1 

This literal must be one character in length; e.g., in the EXAMINE verb. 


121 


Procedure 


INVALID SUBSCRIPTING 

An example of subscripting that will cause this diagnosis Is; 

DATA DIVISION. 

01 TABLE. 

02 NAME 1 OCCURS 3 TIMES SIZE IS 2. 
PROCEDURE DIVISION. 

MOVE NAME 1 (1, 2) 

Note the double subscripting indicated in the procedural statement contradicting the declaration for 
NAMEl. 
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operating Procedures 



Jobs 

The COBOL system performs four major operations. 

1. Compiles source programs. 

2. Assembles Autocoder-IOCS programs. 

3. Produces object programs. 

4. Starts the execution of object programs. 

Because these operations are performed by the four 
processors of the system, the operations are called 
processor jobs. In this respect, the cobol compiler com- 
piles source programs, the Autocoder processor assem- 
bles Autocoder-iocs programs, the Output processor 
produces object programs, and the Execution processor 
starts the execution of object programs. 

One other operation, updating the cobol system, is 
also considered a job. Updating the cobol system is 
called an update job. Update jobs are described in 
Updating a COBOL System. 

Under control of the System Control Program, it is 
possible to perform one or more jobs without operator 
intervention. This process is called stack processing. A 
stack is always made up of the Card Boot deck, a sys- 
tem ASGN card, the particular job(s) to be performed, 
and a halt card. 

In performing a job, the following must be taken into 
consideration. 

1. The kind of input for the job. 

2. The use of the logical files. 

3. The machine-operator procedures to be followed. 

The kinds of input for processor jobs are discussed 
in the following section (Preparing Processing Jobs). 

The general use of logical files is discussed in Logi- 
cal Files. In most cases, the user does not need to be 
concerned about the logical files used for a particular 
job because the cobol system defines the files and 
assigns them to specific input/output devices. In the 
description that follows of preparing individual proces- 
sor jobs, any file assignment that the user must make is 
explained. 

The machine-operator procedures to be followed are 
described in Performing Jobs. 

The last card of a cobol source-program deck is the 
END OF SOURCE Card. The format of this card follows. 



Columns 


Contents 


1-3 


END 


5-6 


OF 


8-13 


SOURCE 



The END OF SOURCE card signals the cobol compiler 
that the entire source program has been read into core 
storage by the input file. Figure 2 shows a cobol 
source deck. 



END OF SOURCE 




IDENTIFICATION 
DIVISION 




COBOL Source Deck 



Figure 2. cobol Source DecK 



Preparing Processor Jobs 

The kind of output that is desired by the user is the 
determining factor of which processor job is to be per- 
formed. 

The remainder of this section describes each indi- 
vidual processor job. They are: 

COBOL RUN 

COBOL RUN THRU AUTOCODER 
COBOL RUN THRU OUTPUT 
COBOL RUN THRU EXECUTION 

Each processor job description includes: 

1. Assumed input device. This entry refers to the de- 
vice on which the input file is assumed to be lo- 
cated. For the 1402, reader 1 means that the cards 
are selected into stacker 1. For the 1442, reader 1 
means unit 1, 

2. Input. This entry refers to the type of input for the 
job. 

3. Assumed output devices. This entry refers to the de- 
vices on which the list file, the message file, and the 
output file are assumed to be located. For the 1403, 
PRINTER 2 means that 132 print positions are avail- 
able. For the 1443, printer 2 means that 144 print 
positions are available. For the 1402, punch 4 means 
that the cards are selected into stacker 4. For the 
1442, punch 1 means unit 1. 

4. Output. This entry refers to the type of output that 
the user always gets as a result of the job. 

5. Output options available. This entry refers to the 
type of output the user can get as a result of the job. 
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6. Required user assignments. This entry describes any 
additional logical file assignments that the user must 
make to perform the job. 

7. Control cards. This entry describes the method of 
punching any required control cards. 

8. Arrangement. This entry references a figure that 
shows the manner of arranging card input for the 
job. 

Notes. 

1. Any logical file assumed assignment can be changed by using 
an ASGN card. (See Changing File Assignments.) 

2. NOTE and pause cards can be placed between, but not 
within, job decks. 

COBOL RUN 

This is the type of run that results in Autocoder sym- 
bolic statements. When this run is performed, only the 
COBOL compiler is selected. To get a machine-language 
object program, the Autocoder statements must be 
processed by the Autocoder and Output processors. 

This is the only type of run that can be performed 
when the Autocoder system and the cobol system re- 
side on separate disk units. 

Assumed Input Device, input file on reader 1, 

Input. Source program. 

Assumed Output Devices, list file on printer 2, mes- 
sage file on printer 2, output file on punch 1 (1442) 
or PUNCH 4 (1402). 

Output. 

1. COBOL diagnostic messages, if errors are sensed in 
the source program. 

2. Source-program listing. 

3. COBOL dictionary. 

4. Qualification table, if name qualification is stipu- 
lated in the source program. 

5. Punched-card deck containing the Autocoder sym- 
bolic statements. 

Output Option Available. Listing of the Autocoder 
symbolic statements. To obtain this option, use a 
work5 ASGN card. 

Required User Assignments. None. 

Control Cards. 

1. If a Hsting of the Autocoder symbolic statements is 
desired on the printer, punch the asgn card in the 
following manner. If used, this asgn card must pre- 
cede the RUN card. 



The value n represents the number of print posi- 
tions. If the printer is a 1403, a 1 indicates 100 po- 
sitions and a 2 indicates 132 positions. If the printer 
is a 1443, a 1 indicates 120 positions and a 2 indi- 
cates 144 positions. 

The RUN card, the only required control card, is 
punched in the following manner. 



Columns 


Contents 


6-10 


COBOL 


16-18 


RUN 



Arrangement. The arrangement of input cards is shown 
in Figure 3. 

Note: If a cross reference list is desired instead of a label table 
when an autocoder run, an autocoder rutst thru 
OUTPXJT, or an autocoder run thru execution is per- 
formed, change column 31 of the compiler-generated 
CTL card to blank. 




/WORKS ASGN 
(if required) 



Source 
y^'y^ Program 

Deck 



Columns 


Contents 


6-10 


WORKS 


16-19 


ASGN 


21-29 


PRINTER n 



Figure 3. cobol run 



COBOL RUN THRU AUTOCODER 

This is the type of run that results in Autocoder text. 
When this run is performed, the cobol compiler and 
the Autocoder processor are selected. To get a machine- 
language object program, the Autocoder text must be 
processed by the Output processor. 

Assumed Input Device, input file on reader 1. 

Input. Source program. 

Assumed Output Devices, message file on printer 2, 

LIST file on PRINTER 2. 

Output. 

1. COBOL diagnostic messages, if errors are sensed in 
the source program. 

2. Source-program listing. 

3. COBOL dictionary. 

4. Qualification table, if name qualification is stipu- 
lated in the source program. 

5. Autocoder diagnostic messages, if errors are sensed. 
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6. Label table. 

7. Autocoder text and a message specifying the start 
address of the text. 

Output Options Available. Listing of the Autocoder 
symbolic statements. To obtain this option, use a 
workS asgn card. 

Required User Assignments. Because the result of proc- 
essing is Autocoder text, an area (output file) in disk 
storage must be defined. The output file must be de- 
fined before the job is performed. Use an output 
ASGN card to define the file. 

Control Cards. 

1. An output asgn card, which precedes the run card, 
must be used to define the output file because the 
Autocoder text is written in disk storage. Punch the 
OUTPUT ASGN Card in the following manner: 

Columns Contents 

6-11 OUTPUT 

16-19 ASGN 

21-57 1311 UNIT n, START nnnnnn, END nnnnnn 

The value n indicates the number of the disk unit, 
and can be 0, 1, 2, 3, or 4; nnnnnn represents a disk 
address. The limits specified must define an area 
large enough to contain the Autocoder text. When 
punching the output asgn card, blanks must be 
present in columns 21-57 where indicated in the 
format. 

2. If a listing of the Autocoder symbolic statements is 
desired on the printer, punch the asgn card in the 
following manner. If used, this asgn card must pre- 
cede the RUN card. 



Columns 


Contents 


6-10 


WORKS 


16-19 


ASGN 


21-29 


PRINTER n 



The value n represents the number of print posi- 
tions. If the printer is a 1403, a 1 indicates 100 po- 
sitions and a 2 indicates 132 positions. If the printer 
is a 1443, a 1 indicates 120 positions and a 2 indi- 
cates 144 positions. 

Punch the required run card in the following man- 
ner. 



Columns 


Contents 


6-10 


COBOL 


16-18 


RUN 


21-24 


THRU 


26-34 


AUTOCODER 



COBOL RUN THRU OUTPUT 

This is the type of run that results in compiHng and 
assembling a machine-language object program. When 
this run is performed, the cobol compiler, the Auto- 
coder processor, and the Output processor are selected. 

Assumed Input Device, input file on reader 1. 

Input. Source program. 

Assumed Output Devices, list file on printer 2, mes- 
sage file on PRINTER 2, output file on punch 1 (1442) 
or PUNCH 4 (1402). 

Output. 

1. COBOL diagnostic messages, if errors are sensed in 
the source program. 

2. Source-program listing. 

3. COBOL dictionary. 

4. Qualification table, if name qualification is stipu- 
lated in the source program. 

5. Autocoder diagnostics messages, if errors are sensed. 

6. Label table. 

7. Object-program listing. 

8. Object program in the condensed-loader format 
(six-card loader for 1401 or 1460, seven-card loader 
for 1440). 

Output Options Available. Listing of the Autocoder 
symbolic statements. To obtain this option, use a 
work5 asgn card. 

Required User Assignments. None. 

Control Cards. 

1. If a listing of the Autocoder symbolic statements is 
desired on the printer, punch the asgn card in the 
following manner. If used, this asgn card must pre- 
cede the RUN card. 



Columns 


Contents 


6-10 


WORKS 


16-19 


ASGN 


21-29 


PRINTER n 



END OF SOURCE 



6 



(^output asgn 



Arrangement. The arrangement of input cards is shown 
in Figure 4. 



WORKS ASGN 
(if required) 




COBOL RUN 
THRU autocoder 



Figure 4. cobol run thru autocoder 
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The value n represents the number of print posi- 
tions. If the printer is a 1403, a 1 indicates 100 po- 
sitions and a 2 indicates 132 positions. If the printer 
is a 1443, a 1 indicates 120 positions and 2 indicates 
144 positions. 

Punch the required run card in the following man- 
ner. 



Columns 


Contents 


6-10 


COBOL 


16-18 


RUN 


21-24 


THRU 


26-31 


OUTPUT 



Arrangement. The arrangement of input cards is shown 
in Figure 5. 



(^ END OF SOURCE 



/COBOL RUN 
THRU OUTPUT 



WORKS ASGN 
(if required) 




Figure 5. cobol run thru output 



COBOL RUN THRU EXECUTION 



This is the type of run that results in compiling, assem- 
bling, and executing a machine-language object pro- 
gram. When this run is performed, the cobol compiler, 
Autocoder processor, Output processor, and Execution 
processor are selected. This run is similar to the stand- 
ard load-and-go operation. 

Assumed Input Device, input file on reader 1, 

Input. Source program. 

Assumed Output Devices, list file on printer 2, mes- 
sage file on PRINTER 2. 

Output. 

1. COBOL diagnostic messages, if errors are sensed in 
the source program. 

2. Source-program listing. 

3. COBOL dictionary. 

4. QuaHfication table, if name qualification is stipu- 
lated in the source program. 

5. Autocoder diagnostic messages, if errors are sensed. 

6. Label table. 



7. Autocoder program listing. 

8. Object program in the coreload format and a mes- 
sage specifying the start and end addresses of the 
program that is stored in the coreload file in disk 
storage. 

Output Options Available. Listing of the Autocoder 
symbolic statements. To obtain this option, use a 
work5 ASGN card. 

Required User Assignments. The coreload file must 
be defined by the user before the job is performed. 
Use a coreload asgn card specifying the start and 
end addresses of the coreload file to define the file. 

Additional Results. The object program is loaded into 
core storage and control is transferred to it. 

Control Cards. 

1. A coreload ASGN Card, which precedes the run 
card, must be used to define the coreload file. 
Punch the coreload asgn card in the following 
manner: 

Columns Contents 

6-13 CORELOAD 

16-19 ASGN 

21-57 1311 UNIT n, START nnnnnn, END nnnnnn 

The value n is the number of the disk unit, and can 
be 0, 1, 2, 3, or 4; nnnnnn indicates a disk address. 
The limits specified must define an area large 
enough to contain the object program. When punch- 
ing the CORELOAD ASGN Card, blanks must be present 
in columns 21-57 where indicated in the format. 

2. If a listing of the Autocoder symbolic statements is 
desired on the printer, punch the asgn card in the 
following manner. If used, this asgn card must pre- 
cede the run card. 



Columns 

6-10 
16-19 
21-29 



Contents 

WORKS 
ASGN 
PRINTER n 



The value n represents the number of print posi- 
tions. If the printer is a 1403, a 1 indicates 100 po- 
sitions and a 2 indicates 132 positions. If the printer 
is a 1443, a 1 indicates 120 positions and a 2 indi- 
cates 144 positions. 

Punch the required run card in the following man- 
ner. 



Columns 


Contents 


6-10 


COBOL 


16-18 


RUN 


21-24 


THRU 


26-34 


EXECUTION 
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Arrangement. The arrangement of input cards is shown 
in Figure 6. 




Figure 6. cobol run thru execution 



ASGN Card Format 


Assumed Assignment 


Remarks 


Label Field 
(Columns 6-15) 


Operand Field 
(Columns 16-20) 


Operand Field 
(Columns 21-72) 






SYSTEM 


ASGN 


Il311 UNITn / 
|l301 UNITOj 


1311 unit — user-assigned 

1301 unit ~ must be assigned to UNIT 


The SYSTEM ASGN card is the only 
required ASGN card. It must follow 
the Card Boot in a stack of jobs . Any 
other SYSTEM ASGN cards in the 
stack are invalid. If the user desires 
that the COBOL system use less than 
the number of core storage positions 
available in the processor machine, 
punch a comma in column 32, and 4K, 
8K, 12K, or 16K beginning in column 
34. 


CONTROL 


ASGN 


J READER n I 
1 CONSOLE printer} 


READER 1 


If the CONTROL file and the INPUT 
file are assigned to the card reader, 
the assignment must be to the same 
card reader. 


MESSAGE 


ASGN 


(printer n I 
/CONSOLE PRINTER) 


PRINTER 2 


When the MESSAGE file is assigned 
to the CONSOLE PRINTER, carriage 
control characters used with the 1403 
or 1443 printer may appear in the 
message. If the MESSAGE file and 
the LIST file are assigned to the 
printer, the assignment must be to the 
same printer. 


LIST 


ASGN 


I PRINTER n J 
; 1311 UNIT n, START nnnnnn, END nnnnnnf 
) 1301 UNIT n, START nnnnnn, END nnnnnn i 
(OMIT ' 


PRINTER 2 


If the LIST file is assigned to 
PRINTER 1 (1403), the Output 
processor of the Autocoder system 
develops a 100-character program 
listing. If the MESSAGE file and the 
LIST file are assigned to the printer, 
the assignment must be to the same 
printer. 


INPUT 


ASGN 


(reader n ) 
/1 311 UNITn, START nnnnnn, END nnnnnn ^ 
/l30I UNITn, START nnnnnn, END nnnnnn^ 


READER 1 


If the CONTROL file and the INPUT 
file are assigned to the card reader, 
the assignment must be to the same 
card reader. 


OUTPUT 


ASGN 


i PUNCH n J 
nSIl UNITn, START nnnnnn, END nnnnnn ' 
11301 UNITn, START nnnnnn, END nnnnnn ( 
(OMIT ' 


PUNCH 4 (1401 and 1460) 
PUNCH 1 (1440) 




LIBRARY 


ASGN 


1311 UNITn, START nnnnnn, END nnnnnn | 
1301 UNIT n, START nnnnnn, END nnnnnn ( 


1311 UNITO, START 012900, END 019980 
1301- UNIT 0, START 012900, END 019980 


1311 is assumed if the SYSTEM file is 
assigned to 131 1; 1301 is assumed if 
the SYSTEM file is assigned to 1301 . 
If the MESSAGE, LIST, and WORKS 
files are assigned to a printer, the 
'assignment must be to the same printer. 


WORKl 


ASGN 


1311 UNITn, START nnnnnn, END nnnnnn 1 
1301 UNITn, START nnnnnn, END nnnnnn \ 


1311 UNITO, START 007200, END 009400 
1301 UNIT 0, START 007200, END 009400 


WORK2 


ASGN 




1311 UNIT n, START rrnnnnn, END nnnnnn 1 
1301 UNITn, START /innnnn, END nnnnnn ( 


131 1 UNIT 0, START 007200, END 009400 
1301 UNIT 0, START 007200, END 009400 


WORK3 


ASGN 


|l311 UNITn, START nnnnnn, END nnnnnn | 
/1 301 UNITn, START nnnnnn, END nnnnnn \ 


1311 UNITO, START 009400, END 012900 
1301 UNITO, START 009400, END 012900 


WORK4 


ASGN 


(l311 UNITn, START nnnnnn, END nnnnnn) 
]l301 UNITn, START nnnnnn, END nnnnnn > 
(OMIT ) 


OMIT 


WORKS 


ASGN 


M311 UNITn, START nnnnnn, END nnnnnn ] 
) 1301 UNIT n, START nnnnnn, END nnnnnn f 
) PRINTER n ( 
' OMIT ^ 


OMIT 


CORELOAD 


ASGN 


(1311 UNITn, START nnnnnn, END nnnnnn) 
< 1301 UNIT n, START nnnnnn, END nnnnnn > 

(omit ) 


OMIT 



Figure 7. asgn Card Formats and Assumed Assignments 
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Changing File Assignments 

Each logical file defined by the cobol system, with 
the exception of the system and coreload files, is as- 
signed to a specific input/output device by the System 
Control Program. These assignments can be changed 
by using asgx cards. The uses of the logical files should 
be considered when deciding file assignments. 

Preparing ASGN Cards 

/SGX cards enable the user to change file assignments 
for one or more jobs in a stack. The general format for 
an ASGN card is: 



The file-rmme is the specific logical file; device is the 
input/output unit to which the logical file is assigned. 

The assumed file assignments and asgn card formats 
relating to specific files are shown in Figure 7. Valid 
device entries are shown in Figure 8. 

Leave a blank between items in the operand field as 
shown in Figure 7. If, for example, the output file is 
to be assigned to disk area 004000 through 004799 on 
1311 unit 1, the user would code the asgn card for 
punching as shown in Figure 9. The end address to 



file-name 



ASGN 



j device \ 
\ OMIT t 



Device Entry and Values of n and nnnnnn 


Remarks 


JJ31 K UNIT n, START nnnnnn, END nnnnnn 

n is the number of the disk unit, and can be 
0, 1,2, 3, or 4; nnnnnn is a disk address. 


The END address is the address of the next available sector. 

The values of nnnnnn must adhere to the following rules: 

1. WORKl and WORK2 files. If the disk unit is 1311 , the 

START address must be a multiple of 200. If the disk unit 
is 1301 , the START address must be a multiple of 800. 
The END address (1311 and 1301) must be a multiple of 
40. 

2. WORK3, WORK4, and WORKS files. The START and 

END addresses (1311 and 1301) must be multiples of 10. 

3. LIBRARY file. The START and END addresses (131 1 and 
1301) must be multiples of 20. 

If these rules are violated, the system automatically narrows 
in the disk area to an area tfiat does adhere to these rules. 


READER n 

For 1402, n can be 0, 1, or 2. 

For 1442, n can be 1 or 2. 


For 1402, n represents the pocket into which the cards are 

stacked . 

For 1442 and 1444, n represents the number of the unit. 


PUNCH n 

For 1402, n can be 0, 4, or 8. 
For 1442, n can be 1 or 2. 
For 1444, n must be 3. 


PRINTER n 

n con be 1 or 2 


n represents the number of print positions available on the 
1403 or 1443. 

For 1403, a 1 indicates 100 positions and a 2 indicates 132 

positions. 

For 1443, a 1 indicates 120 positions and a 2 indicates 144* 

positions. 

*Only 132 print positions are used by the COBOL system. 


CONSOLE PRINTER 


The console printer must be an IBM 1447 without a buffer 
feature . 


OMIT 


Select this option when the file is not to be used by ffie 
COBOL system. LIST, OUTPUT, .WORK4, WORKS, and 
CORELOAD are the only files that can be omitted. 



Figure 8. Valid Device Entries 
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Lobal jOperotionl OPERAND 

JSa zo 81 a 9S 3£ 42 *i so S5 S2 SS_ 



OUTPUT. . . lASSH I13.M UN. IT. .» ,. START .0.04.0.0.0., END. OOMS.0.0 

Figure 9. Coding for output asgn Card 



Determiner 



Determiner 



Syntax Scan 



—— (input 1 



Name Compressor 
and Diagnostics 




V: 







>S 



Data Prescan 



■*© 



>© 



Data Scan 



IOCS 



^@ 



<D 







Procedure Prescan 






Procedure Scan 



>@ 



Data Descriptions 
Merge 



>@ 



<D 



General To 
Particular Macros 
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be punched is the address of the next available sector, 
not the address of the last sector to be used. 



of the Autocoder symbolic statements generated by 
the COBOL compiler. 



File Considerations 

CONTROL File and INPUT File. If both the control 
and ixpuT files are assigned to the reader, the assign- 
ments must be identical. For example, if the system 
is a 1440 and the control file is assigned to reader 1, 
the ixpuT file must also be assigned to reader 1. 

SYSTEM File. If the system file resides on 1311, drive 
should be on-line because the System Control Pro- 
gram's assumed assignments are on drive 0. If drive 
is not on-fine, the user must use asgn cards to 
change the assumed assignments for the library, 
workI, work2, and v^orkS files. 

MESSAGE File and LIST File. If both the message 
and LIST files are assigned to the printer, the assign- 
ments must be identical. For example, if the system 
is a 1401 and the message file is assigned to printer 
2, the list file must also be assigned to printer 2. 

OUTPUT File. This file must be assigned to a disk 
area for cobol run thru autocoder because the 
Autocoder text (100-character records) must be on 
disk for Output processing. 

Note: Do not assign the output file to a disk area for 

COBOL RUN THRU OUTPUT 

WORKl File and W0RK2 File. workI and work2 are 
required files. They can be assigned to any available 
area in disk storage. The v^orkI and work2 files are 
used by the cobol compiler for the getex and putex 
functions that perform the large volume of data 
handling during compilation. 

WORKS File. work3 is a required file. It can be as- 
signed to any available area in disk storage. The 
w^orkS file is used by the cobol compiler as an out- 
of-line file (place) that bypasses data around major 
portions of the compiler. In addition, if the thru op- 
tion is specified in the run card, m^orkS acts as an 
interface file between cobol and Autocoder. 

W0RK4 File. work4 is an optional file. When work4 
is assigned to any available area in disk storage, it 
is used by the cobol compiler as the source-merge 
file. This function intersperses cobol source state- 
ments, by paragraph, into the Autocoder symbolic 
statements generated by the cobol compiler. 

WORKS File. work5 is an optional file. When work5 
is assigned to any available area in disk storage or 
U) the printer, it is used by the cobol compiler as 
the COBOL output listing file. This file is a listing 



Timing Considerations 

Each segment of the cobol compiler uses specified 
logical files that include: input, output, list, getex/ 
putex (woRKl/vi^ORK2), PLACE (workS), the optional 
SOURCE-MERGE (v^^ork4), and the optional output list- 
ing (work5). Figure 10 is a block diagram showing the 
logical segments and the order in which they operate. 
In addition, the logical files used by the individual 
segments are shown. 

Manipulation of the cobol files enables the user to 
achieve the best possible results in the operation of the 
COBOL system. To attain these desired results, it must 
be remembered that seek time is the most significant 
factor aflFecting input/output operations time in the 
system. Therefore, it would be expedient for the user 
with a multi-unit system to distribute the cobol files 
to all of the units, thus making a significant reduction 
in seek time. 

workI and work2 must be given further considera- 
tion if optimum seek time is to be realized. Because 
these two files handle large amounts of data, ineflfi- 
cient use of the files results in an increase of cobol 
time requirements. To minimize this effect on the one- 
unit user, the assumed assignments for workI and 
work2 are such that the two work files are assigned 
to the same area of the disk unit, as shown in Figure 11. 
The System Control Program "splits" each cylinder, 
causing workI to occupy the upper half of each cylin- 
der and work2 to occupy the lower half of each 
cyHnder. A programmed false cylinder-overflow is 
forced as each half cylinder is operated upon and the 
next upper or lower cylinder is used. 

The user is advised that when asgn cards are used 
to change logical file assignments, the assignments 
affect not only the logical files used by cobol, but also 
the logical flies used by Autocoder. Autocoder requires 
that the vt^ORKl and v^^ork2 files be assigned to separate 
disk areas. Therefore, when the assumed assignments 



WORK 1 



WORK 2 



Figure 11. workI and work2 Assigned to Same Disk Area 
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for workI and work2 are changed by using asgn 
cards, these files must be assigned to separate areas 
on disk. 



Using ASGN Cards 

At the beginning of stack processing, the System Con- 
trol Program reads a list of assumed assignments into 
core storage from the system file. Each assumed as- 
signment remains in effect until an asgn card for that 
file is sensed. Any changed file assignment remains in 
effect until the next asgn card for that file, or a halt 
card, is sensed. 

If a file-assignment change is applicable for an en- 
tire stack, place the asgn card immediately ahead of 
the first RUN card. 

If a file-assignment change is only applicable to a 
specific job, place the asgn card immediately ahead of 
the run card for that job. To change the file assignment 
back to the assumed assignment or to a different as- 
signment, place the asgn card immediately ahead of 
the RUN card for the next job that requires the effective 
file assignment to be changed. 



Batched Files 

In some cases it would be expedient for the user to 
exercise the batching capability of the cobol system. 
The batched-files concept applies to the external files 
INPUT, OUTPUT, and list. (The coreload file, used by 
the Output processor of the Autocoder portion of the 
system, can also be batched.) The contents of these 
files represent one or more sequential sets of input to 
or output from the processors. 

An example of the batching principle is as follows. 
Three source programs are stored sequentially on the 
INPUT file. The user-specified output is to be in the form 
of Autocoder-iocs symbolic statements. This implies 
that only the cobol compiler is to be accessed. 

An INPUT ASGN card containing the start address of 
the beginning of the first source program and the end 
address of the end of the third source program is re- 
quired. An OUTPUT ASGN Card is required, if the output 
file is to be assigned to disk. Following the output 
ASGN card are three cobol run cards (one run card for 
each of the three source programs on disk). 

At the completion of processing of each source pro- 
gram, the first disk address used by the next program 
to be written on the output file is printed on the mes- 
sage file. Thus, the user would know not only the start 
and EiND addresses of the entire output file, but also the 
START and END addresses of each of the partially proc- 
essed programs. 



Performing Jobs 

Under control of the System Control Program, it is 
possible to process one or more jobs without operator 
intervention. For this stack processing to be accom- 
plished, each separate job must be called for by the 
necessary control cards. A hst of the operations that 
can be performed in a stack follows. 

Logical File Assignments. Assign decks are made up of 
one or more asgn control cards specifying input/ 
output devices that differ from the effective devices 
of the System Control Program. With the exception 
of the SYSTEM ASGN Card, logical-file asgn control 
cards can appear as frequently within the stack as 
the user wishes. Individual control cards within the 
deck can be in any order. The system asgn card 
appears once in a stack and immediately follows the 
Card Boot deck. A coreload asgn card is required 
if THRU EXECUTION is Specified in a run card. 

System Updating. Update decks as supplied by ibm 
are read by the System Control Program and must 
be available to the system on the device to which 
the CONTROL file is assigned. An update deck con- 
sists of one or more control cards, followed by any 
appropriate data cards. 

Processor Runs. Runs depend upon a run card and the 
input to the processors. If the input file is assigned 
to the same device as the control file (the card 
reader), each source deck must be placed behind 
its respective run control card. If the input to the 
processors is written in disk storage, an input asgn 
card is required designating the location of the 
source material in disk storage. 

Communicating with the Operator, note control cards 
and PAUSE control cards can appear anywhere in a 
stack between jobs. A halt card must be the last 
card of a stack. 



Preparing a Stack 

The Card Boot deck, a system asgn card, and a halt 
card are always required. The formats of the system 
asgn and halt cards are shown in Appendix I. 

The input cards for a stack are arranged in this order: 

1. The 1402 or 1442 Card Boot deck= 

2. The SYSTEM asgn card. 

3. Job decks, to include the assign card(s), update 
deck(s), and processor deck(s). Job decks can be in 
any order. 

4. The HALT card. 

This stack is placed in the card reader and is read by 
the System Control Program from the control file. 
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/halt 



J 



f COBOL RUN 



/end OF SOURCE 

f 



IDENTIFICATION 
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/(ASGN DECK) 



I 



-COBOL Source Deck 



/end of SOURCE 
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COBOL RUN 
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-COBOL Source Deck 



Figure 12. Stack with control and input Files Assigned to 
the Same Device 

Figure 12 shows a stack with control and input 
files assigned to the same device. 

Figure 13 shows a stack with control and input 
files assigned to different devices. 

Running a Stack 

To perform a stack run when the system resides on 
1311: 

1. Place the system pack on the disk drive referred 
to in the system asgn control card, and ready the 
drive. (This card immediately follows the 1402 or 
1442 Card Boot deck.) 

2. Ready all the input/output devices to which the 
logical files are assigned. These are the assumed 



devices of the System Control Program and/or the 
devices defined by the asgn cards. The assumed 
devices are: disk drive 0, the card reader, the card 
punch, and the printer. 

3. Ready the console: 

a. Set the I/O check-stop switch off. 

b. Set the check-stop switch and disk-write switch 
on. 

c. Set the mode switch to run. 

d. Press check reset and start reset. 

4. Load the program. 

a. 1402 Card Reader: Press load. 

b. 1442 Card Reader: Press start on the reader, 
and program load on the console. 

5. When the System attempts to read the last card: 

a. 1402 Card Reader: Press start. 

b. 1442 Card Reader: Press start on the card 
reader. 

To perform a stack run when the system resides on 
1301: 

1. Ready all the input/output devices to which the 
logical files are assigned. These are the assumed de- 
vices of the System Control Program and/or the 
devices referred to in the asgn cards. The assumed 
devices are: disk unit 0, the card reader, the card 
punch, and the printer. 

2. Ready the console: 

a. Set the I/O check-stop switch off. 

b. Set the check-stop switch and disk- write switch 
on. 

c. Set the mode switch to run. 

d. Press check reset and start reset. 




Run *1 




Figure 13. Stack with control and input Files Assigned to Different Devices 
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3. Load the program: 

a. 1402 Card Reader: Press load. 

b. 1442 Card Reader: Press start on the reader, 
and PROGRAM LOAD on the console. 

4. When the system attempts to read the last card: 

a. 1402 Card Reader: Press start. 

b. 1442 Card Reader: Press start on the card 
reader. 

Loading Object Programs 

Pimched-card object programs can be executed inde- 
pendently of the COBOL system. The procedures to 
be followed when a card-read error occurs depend on 
the format of the program and the object system. 
To load the program: 

1. Place the object deck in the card reader. (If for any 
reason the user does not wish to clear storage before 
loading the object program, he should remove the 
first two cards from the deck. These are the clear- 
storage cards generated by the processor.) 

2. Set the I/O check-stop switch on. Set sense switches 
as needed by the object program. 

3. Press check reset and start reset. 

4. Load the program: 

a. 1402 Card Reader: Press load. 

b. 1442 Card Reader: Press start on the card 
reader, and program load on the console. 

5. When the system attempts to read the last card: 

a. 1402 Card Reader: Press start. 

b. 1442 Card Reader: Press start on the card 
reader. 

If a card-read error occurs while loading an object- 
program deck with the I/O check-stop switch on, the 

following procedures are followed to correct the error. 
If the reader is a 1402: 

1. Nonprocess run out the cards in the card reader. 

2. Place the last three cards (two nonprocessed cards 
and the card in error) in the hopper. 

3. Press check reset on the reader and start. 

If the reader is a 1442 and the object-program deck 
is in the 1440 condensed-loader format: 

1. Nonprocess run out the cards in the card reader. 

2. Place the last two cards in the hopper. 

3. Press check reset and start reset. 

4. Set the I-address register to the ninth position of 
the loader. 

5. Press start on the reader and start on the console. 
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If the reader is a 1442 and the object-program deck 
is in the 1440 self-loading format: 

1. Nonprocess run out the cards in the card reader. 

2. Place the last two cards in the hopper. 

3. Press check reset and start reset. 

4. Set the I-address register to 00073. 

5. Press start on the reader and start on the console. 

Note: For a description of the preceding formats, see the 
Systems Reference Library publication Autocoder (on 
Disk) Program Specifications and Operating Procedures 
for IBM 1401, 1440, and 1460, Form C24-3259. 



Halts and Messages 

The halts and messages shown in Figure 14 can appear 
during a stack run. To display halt numbers, press the 
A-address register key. Messages are printed on the 
MESSAGE file. 

Conditions may arise that the system recognizes as 
being instrumental in causing a failure. In these in- 
stances, the system automatically calls in a storage- 
and file-print program. The contents of core storage 
and the work files are printed on the message file, and 
the system continues by accepting a new job. Among 
the conditions that may cause a system failure are: 

1. An end-of-file indication was sensed by the compiler 
before the end of the file was reached. 

2. An excessive number of disk read or disk write 
errors occurred on the work files. 

3. An error in coBOL-prescribed sentence structure oc- 
curred when coding the source program. This type 
of error is detected in the phase of the processor that 
analyzes the particular part of the program. For 
example, an error in subscripting would be detected 
in phase HOI. 

In certain types of halts, the operator can call in the 
storage- and file-print program by a manual branch to 
address 900. These types of halts are in the form xxxx, 
where x is numeric. 

If the Autocoder preprocessor recognizes conditions 
that make it impossible to complete an operation, a 
hard lialt Occurs. In such cases, the linkage to the Sys- 
tem Control Program is destroyed. This type of halt is 
in the form xxbb, where x is numeric. When the pre- 
processor has program control, the storage- and file- 
print program cannot be used. If a failure occurs, the 
system does not call in the program, and the operator 
cannot call it by a manual branch to address 900. The 
operator can restart by using the Card Boot, followed 
by the necessary job decks. 



Halt Number 

(A-Address 

Register) 



MESSAGE and/or A/feaning 



Restart Procedure 



Ibb 



Card read error. 



1 . 1402 card reader: nonprocess run out the cards in the 
reader. Place the last three cards (two nonprocessed 
cards and the card in error) in the hopper. Press START , 

2. 1442 card reader: nonprocess run out the cords in the 
reader. Place the two nonprocessed cards in the hopper, 
(The first nonprocessed card is the card in error). Press. 
START on the reader and START on the console. 



2bb 



Wrong-length record or no -address-compare error sensed 
ten times during a disk-read or disk-write operation. 



Press START for ten disk-read or disk -write retries « 



3bb 



Parity error sensed ten times during a disk-read or disk-write 
operation. 



Press START for ten disk-read or disk-write retries. 



4bb 



Not-ready condition sensed when a disk-read or disk-write 
operation was attempted . 



Ready the disk unit and press START. 



5bb 



1 . Librarian-control OPTN card is incorrect, or 
2. Preprocessor phase not on the SYSTEM file. 



1 . Nonprocess run out the cards in the card reader, 
correct the OPTN card, and restart the system, or 

2. If the OPTN card is not incorrect, use the part of the 
system deck labeled AUTOCODER PREPROCESSOR and 
rebuild the preprocessor portion of the system. Follow 
the procedures as described in Building an Autocoder 
System . 



6bb 



One of the following messages precedes this halt: 

ERROR HEADER ABOVE UNKNOWN 

A phase-update card specifies a phase name that is not in 
the phase table . 

ERROR NO KNOWN TYPE OF UPDAT 

Columns 21- ? of a phase-update card are incorrect. 

ERROR CYLINDER OVERFLOW 

The phase-update card specifies that the phase is to be 
placed on a set of sectors that exceeds one cylinder. 

ERROR ACTUAL IDENT UNEQUAL TO HEADER IDENT 

Columns 76-80 of a change card do not contain the phase 
name specified in columns 6-10 of the update control 
card associated with it. 

ERROR NON CONTROL CARD WITHOUT CONTROL 
PRECEDING 

An update card is missing, out of sequence, or mis- 
punched. 

ERROR UNKNOWN EXECUTE CARD 

A change card with 006 punched in columns 1-3 does not 
have =, or =/ or =M punched in columns 6 and 7. These 
punches are found in set-word-mark or clear cards developed 
for a DA statement. No other types of special execute cards 
are permitted. 

ERROR PATCH ABOVE OUTSIDE OF PROGRAM LIMITS 

The phase area cannot contain the data specified in the 
change cards. 



The contents of the error cards are printed . Nonprocess 
run out the cards in the card reader, correct the error card, 
and restart the update operation. Corrections successfully 
completed before the halt occurs need not be reprocessed. 



Figure 14. Halts and Messages (Part 1 of 5) 



31 



Halt Number 

(A-Address 

Register) 


MESSAGE and/or Meaning 


Restart Procedure 




ERROR CHARACTER COUNT TOO LARGE 

A change cord contains a character count greater than 67 
characters. The character count is punched in columns 4 
and 5, 

ERROR ABOVE CARD CREATES GROUP MARK WORD 
MARK 

A set-word-mark card developed for a DA statement 
attempts to set a word mark over a position containing 
a group mark, or a condensed card contains a word separa- 
tor character followed by a group mark. This is an error 
because a group mark can neither be read from nor written 
in disk storage. 




7bb 


More than 30 different DTP entries used in the program. 


Correct the source program and reassemble the source 
program from the beginning. 


8bb 


CONTROL CARD ERROR LIBRARY OPTN 

This halt indicates one of the following conditions: 
1 . An INSER, DELET, or END card is missing or mis- 
punched. 

2. An attempt to insert or delete entries in a library 
routine that does not exist. 

3. Entries not in collating sequence, according to 
macro name and/or sequence number. 


The contents of the incorrect card(s) are printed. Remove 
the incorrect card(s) and place the remainder of the cards in 
the card reader. If the library change operation is not 
completed, the LIBRARY file cannot be used. 


9bb 


Any disk error that occurs while the bootback routine is 
returning control to the System Control Program. 


Press START for one disk retry. 


lObb 


More than 300 macros within macros have been used in 
the source program. 


Correct the source program and reassemble the source pro- 
gram from the beginning. 


llbb 


WORK1 capacity exceeded during an AUTOCODER RUN 
THRU OUTPUT or an AUTOCODER RUN THRU EXECU- 
TION, or OUTPUT-file capacity exceeded during an 
AUTOCODER RUN. 


Change the WORKl or OUTPUT ASGN card and restart the 
assembly of the job. 


12bb 


Disk-error condition sensed during the Preprocessor 
phase . 


Press START for ten disk retries. 


13bb 


LIBRARY file capacity exceeded. Part of the library 
routine that was being processed when the halt occurred 
will be in the LIBRARY file. AW library routines follow- 
ing the routine being processed will no longer be in the 
LIBRARY file. 


To finish the job: 

1 . 1402 card reader: nonprocess run out the cards in the 

reader. Place the END card in the hopper. Press 

START. 
2. 1442 card reader: nonprocess run out the cards in the 

reader. Place the END card in the hopper. Press 

START on the reader and START on the console. 
To determine the names of the routines remaining in the 
LIBRARY file, perform a library-listing operation and specify 
HEADERS in the LISTING OPTN card. 


22bb 


More than 30 different INCLD routines used in one 
overlay. 


Correct the source program and reassemble the source program 
from the beginning. 


33bb 


Library table (99 macro names) exceeded. 


To finish the job: 

1 . 1402 card reader: nonprocess run out the cards in the 

reader. Place the END card in the hopper. Press 

START . 
2. 1442 card reader: nonprocess run out the cards in the 

reader. Place the END card in the hopper. Press 

START on the reader and START on the console. 
To determine the names of the routines in the LIBRARY file, 
perform a library-listing operation and specify HEADERS in 
the LISTING OPTN card. 
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Halt Number 
(A- Address 
Register) 


MESSAGE and/or Meaning 


Restart Procedure 


001 


WRONG SYSTEM 

The message appears unconditionally on the printer. 


1 . Nonprocess run out the cards in the reader, 

2. Correct the SYSTEM ASGN card, or place the correct 
pack on the unit indicated in the SYSTEM ASGN card. 

3. Restart the stack. 


002 


TEN RD TRIES PRESS STRT FOR 10 MORE 

The message appears unconditionally on the printer. It 
indicates any disk error while attempting to read the 
SYSTEM file. 


Press START for ten disk-read retries. 


003 


SYSTEM ASGN NOT SENSED 

The SYSTEM ASGN card did not immediately follow the 
Card Boot. 


1 . Nonprocess run out the cards in the reader. 

2. Place the SYSTEM ASGN card and the remainder of 
the stack in the read hopper. 

3. If the reader is 1402, press START. 

4. If the reader is 1442, press START on the reader and 
START on the console. 


004 


Parity check, wrong-length record, or no-address- 
compare error sensed 10 successive times during disk 
bootstrap operation. 


Press START for 10 disk -read retries. 


005 


End-of-file sensed in SYSTEM file during disk boot- 
strap operation . 


Nonprocess run out the cards in the reader and restart the ! 
stack. 


006 


HALT card image 

Indicates the end of the stack. 


Hard halt. 


007 


Card-punch error. 


1 . 1402 card punch: nonprocess run out the cords in the 
punch. Discard the last three cards (two nonprocessed 
cords and the cord in error) in the stacker. 
Press START. 

2. 1442 card punch: discard the last card in the stacker. 
Press START on the punch and START on the console. 


008 


Card-read en-or. 


1 . 1402 card reader: nonprocess run out the cards in the 
reader. Place the last three cards (two nonprocessed 
cards and the cord in error) in the hopper. Press START. 

2. 1442 card reader: nonprocess run out the cards in the 
reader. Place the two nonprocessed cards in the 
hopper. Press START on the reader and START on the 
console . 


009 


Printer error. 


1. 1403 printer: press START. 

2. 1443 printer: press START on the printer and START on 
the console. 


010 


Nonblank card at the punch station in the 1442 card 
read-punch . 


Nonprocess run out the cards in the 1442, Place blank 
cards before the nonprocessed cards. Press START on the 
1442 and START on the console. 


on 


PAUSE card image. 


Press START. 


012 


Console-printer error 


Press START for one retry of the read cr write operation. 


013 


***ASGN card image 

The halt indicates that the ASGN card is incorrectly 
punched. 


1 . 1402 card reader: the cord in the stacker is the in- 
correct ASGN card. Correct the ASGN cord. 
Nonprocess run out the cards in the reader. Place the 
corrected ASGN card and the two nonprocessed cards 
in the hopper. Press START. 

2. 1442 card reader: nonprocess run out the cards in the 
reader. The first nonprocessed card is the incorrect 
ASGN card. Correct tfie ASGN card. Place the 
corrected ASGN card and the second nonprocessed 
card in the hopper. Press START on the reader and 
START on Hie console. 
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Halt Number 
(A -Address 
Register) 



MESSAGE and /or AAeaning 



Restart Procedure 



3. If the user wishes, he can ignore the two steps outlined 
above, and press START. The system will then use the 
effective device assignment for that particular file. 



040 



The logical file has been assigned to on area that overlaps 
a previously defined file label. (1311 only.) 



Hard halt. Change the assignment and restart the stack 
with the Cord Boot. 



168 



Phase not found in phase table while in supervisory call 
for phase . 



A part of the System must be rebuilt. Use the parts of the 
System deck labeled CARD BUILD, SYSTEM CONTROL, and 
AUTOCODER PROCESSOR. Follow the procedures as des- 
cribed in Building an Autocoder System. 



500 



Disk not ready. 



Ready the disk unit and press START. 



629 



Parity check, wrong-length record, or no-address-compare 
error sensed lOsuccessive times during a disk-read or write 
operation . 



Press START for 10 disk-read or write retries. 



777 



This halt will occur if the work areas are not large enough. 



Hard halt. Enlarge work areas to required size and re- 
start the assembly. 



1250 



END OF CONTROL CARD DIAGNOSTICS NOTE - 
PRESS START TO ASSEMBLE, START-RESET AND START 
TO BYPASS ASSEMBLY 



As indicated in the message . 



1447 



NOTE - ASSEMBLY ERRORS - PRESS START TO EXE- 
CUTE, START - RESET AND START TO BYPASS 
EXECUTION 



As indicated in the message . 



1833 



NOTE - DIAGNOSTICS - PRESS START TO ASSEMBLE, 
START - RESET AND START TO BYPASS ASSEMBLY 



As indicated in the message. 



2930 



NOTE NUMBER OF ERRORS NEEDING CORRECTION 
nnn TOTAL NUMBER OF DIAGNOSTICS - nnn 
PRESS START TO CONTINUE START-RESET AND 
START TO BYPASS JOB 



As indicated in the message. 



START ADDRESS OF INPUT FILE DOES NOT REFER TO 
HEADER RECORD 



If a message is printed and no halt occurs, the next control 
card is processed . 



EXPECTED HEADER # (52 Positions) *, FOUND 
/ (52 positions)/ 



EXPECTED ID *XXXXX#, FOUND AXXXX/ 



NOTE card image 



*** card image 

All cards not recognized by the System Control Program 
are flagged (***), written on the MESSAGE file, and 
bypassed by the System . 



Card image 

INVALIDUPDATTYPE 

Update card with invalid update mode designated. 



PHASE XXX ALREADY ON SYSTEM, WILL DROP THIS 
SET OF CARDS 



PHASE XXX NOT FOUND 



HEADER CARD ERROR 

All header cards must have 24232 in columns 1 throug 
5. 



Card image 



PHASE AREA EXCEEDED 



'***PROCESSOR UNKNOWN**** 
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Halt Number 
(A- Address 
Register) 


MESSAGE and/or Meaning 


Restart Procedure 




CORELOAD NOT ASSIGNED, OPTION NOT DONE 
The next output option is processed. 




CORELOAD FILE NOT ASSIGNED, OPTION NOT DONE 
AND EXECUTION SUPPRESSED 


image of an output option card - OPTION UNKNOWN 
The next output option card is processed. 


CORELOAD HEADER - (52 positions), ID - (5 positions) 
Use the infomiation in an EXECUTION RUN card. 


CORELOAD OUTPUT COMPLETE ON JJ^q]! UNITn, 
START nnnnnn, END nnnnnn ' ' 


The START address is address of the object program header 
record. The END address is the address of the next avail- 
sector. Use the information in an INPUT ASGN card for 
an EXECUTION RUN. 


ADDRESS nnnnnn 


XXXXX MACRO NOT IN LIBRARY 

The macro requested (XXXXX) is not in the LIBRARY file. 


END OF LISTING OPTN 

The library-listing job has been completed. 


XXXXX BLOCKS LEFT EOJ 

The library-change operation has been completed. 
XXXXX is the number of blocks available in the 
LIBRARY file. 


END OF SYSTEM OPTN 

The update operation has been successfully completed. 


LIBRARY FILE NOT RECOGNIZED 

The library has not been assigned correctly or the 
library has not been initialized. 


OUTPUT FILE NOT ASSIGNED TO DISK 

The RUN card specifies AUTOCODER RUN or COBOL 
RUN THRU AUTOCODER. The Autocoder text must be 
written on disk , 


INPUT FILE NOT ASSIGNED TO DISK 

The RUN card specifies OUTPUT RUN or OUTPUT RUN 
THRU EXECUTION. An INPUT ASGN card, designating 
the location of the Autocoder Text, is required. 


NO TEXT IN INPUT FILE 

1 EOFb sensed in the INPUT file and the Autocoder Text 
has not been prcxessed; or, the assigned INPUT file does 
not contain text. 



Figure 14. Halts and Messages (Part 5 of 5) 
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Building and Updating a COBOL System 



COBOL-System Deck Description and 
Preparation 

The program card deck supplied to the user contains 
six sections as shown in Figure 15. One section, Mark- 
ing Program, is used to separate the sections for ease 
in labeling the various components of the complete 
deck. One section, System Control Modification, is 
used to modify the System Control Program. Three 
sections, Write File-Protected Addresses, cobol Up- 
date, and COBOL Macros, are used to build the system. 
The sixth section. Sample Program, is used to test the 



system built by the user. The individual sections are 
separated by marking program control cards. In the 
instances where there is more than one set of cards 
making up a section, a marking program control card 
separates the sets. 

All cards in the system deck, except for the two 
1402 load-card sets, the two 1442 load-card sets, the 
COBOL Macros, and the Sample Programs, contain a 
sequence number in columns 72-75. The cards are 
numbered consecutively, beginning with 0001. 

All load cards contain a sequence number in column 
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Blank Card 



L 



6 lankCard 



■1460- 



1440 ^> SAMPLE PROGRAM 



■1401- 



COBOL MACROS 



COBOL UPDATE 



1402 



WRITE FILE -PROTECTED ADDRESSES 



1442 



SYSTEM CONTROL MODIFICATION 



1402- 



1442- 



AAARKING PROGRAM 



: Shaded cords indicate 
Marking Program Control Cards 



Figure 15. COBOL Program Deck 
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80. Each set of 1402 load cards is numbered consecu- 
tively from 1 through 6 and is identified by a 0-4-8 
punch (% symbol) in column 79. Each set of 1442 
load cards is numbered consecutively from 1 through 
7 and is identified by a 3-8 punch {# symbol) in 
column 79. 

If it is necessary to resequence the system deck, the 
user should sort the cards in the following manner: 

1. Sort on columns 79 (0-4-8 punch) to select the 
1402 load cards. 

2. Sort the 1402 load cards on column 80 to sequence 
the cards. 

3. Assemble the two sets of 1402 load cards. 

4. Sort on column 79 (3-8 punch) to select the 1442 
load cards. 

5. Sort the 1442 load cards on column 80 to sequence 
the cards. 

6. Assemble the two sets of 1442 load cards. 

7. Sort the remainder of the system deck on columns 
75, 74, 73, and 72. After sorting, the cobol Macros 
and Sample Programs will be in the reject pocket. 

8. Check the program listing, which is supplied with 
the system deck, and insert the sets of load cards 
in the appropriate places. 

9. Sort the cobol Macros and Sample Programs on 
column 5. After sorting, the cobol Macros will be 
in the reject pocket. 

10. Sort the Sample Programs on columns 4, 3, 2, 1, 
and 80. 

11. Check the program fisting and insert the Sample 
Programs, 

12. Sort the cobol Macros on columns 4, 3, 2, 1, 80, 
79, 78, 77, and 76. 

13. Check the program listing and insert the cobol 
Macros. 



Marking Program 

The Marking Program deck is made up of two sets. The 
set for the 1442 consists of 13 cards and has identifica- 
tion code 50ZY1 punched in columns 76-80. The set for 
the 1402 consists of 11 cards and has the identification 
code 50ZZ1 punched in columns 76-80. A blank card 
follows each set. 

The Marking Program separates the various sections 
and sets that make up the system deck. When a control 
card is sensed, a halt occurs and a message is printed. 

If the reader is 1442, the initial message is: 



HALT AT EACH DECK SEGMENT. DISCARD 
FIRST CARD, MARK DECK AS PRINTED, 
PRESS START TO CONTINUE. 

If the reader is 1402, the initial message is: 
HALT AT EACH DECK SEGMENT. MARK 
DECK AS PRINTED, PRESS START TO CON- 
TINUE. 

Subsequent messages contain the name of the sec- 
tion to be marked. 

To use the decks: 

1. Set sense switch A on. Set all other sense switches 
off. 

2. Set the I/O check stop switch off. 

3. Press check reset and start reset. 

4. Select the Program Marking deck that is appropriate 
for the system and remove the other deck. 

5. Remove the blank card following the Marking Pro- 
gram and place the program in the card reader, fol- 
lowed by the remainder of the cobol system deck. 

6. Load the program. 

a. 1402 Card Reader: Press load. 

b. 1442 Card Reader: Press start on the reader, and 

PROGRAM LOAD OU the COUSOlc. 

7. Halt 003 procedure. 

a. 1402 Card Reader: Press start. The Marking 
Program is in the NR stacker. 

b. 1442 Card Reader: Remove the Marking Program 
from stacker 1 and press start on the console. 

8. Halt 001 procedure. 

a. 1402 Card Reader: Remove the cards from 
stacker 1 and press start. Mark the deck section as 
indicated in the message. The Marking Program 
control card is in the NR stacker. 

b. 1442 Card Reader: Remove the cards from 
stacker 1 and press start on the console. Discard 
the first card (Marking Program control card) and 
mark the section as indicated in the message. 

Note: The Marking Program control cards are identified by 
##### in columns 1-5. These cards are only for the 
use of the Marking Program and should be discarded 
after the deck is marked. 

9. When the system attempts to read the last card. 

a. 1402 Card Reader: Press start. 

b. 1442 Card Reader: Press start on the reader. 
The last card is a Marking Program control card 
and should be discarded. 

The following halts can occur when using the Mark- 
ing Program. To display the halt number, press the A- 
address register key. 
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Halt Number 
A-Address Register 

001 

002 
003 
008 



009 



Meaning 

The deck section in stacker 1 should be 
marked. 

End of job. 

The initial message has been printed. 

Card-read error. To retry the operation, 
For the 1402: Nonprocess run-out the 
cards. Remove the last three cards in the 
stacker and place them in the hopper. 

Press START. 

For the 1442: Nonprocess run-out the 
cards. Place the two nonprocessed cards 
in the read hopper. Press start on the 
reader and start on the console. 

Printer error. To retry the operation, 

a. 1403 Printer: Press start. 

b. 1443 Printer: Press start on the 
printer and start on the console. 



System Control Modification 

The system Control Modification deck is punched in 
the Autocoder condensed-loader format and the updat 
control-card format. The deck is made up of approxi- 
mately 5 cards. The updat cards are identified by 
the code 50CB1 punched in columns 76-80. The modifi- 
cation cards are identified by the code 50Sxl punched 
in columns 76-80, where x is alphameric. The function 
of the deck is to modify the System Control Program 
and the assumed logical file assignments of the System 
Control Program. 



Write File-Protected Addresses 

The Write File-Protected Addresses section is punched 
in the Autocoder condensed-loader format. The deck 
consists of approximately 120 cards. 

The set of cards for the 1442 has the identification 
code 50FS1 punched in columns 76-80. The set of cards 
for the 1402 has the identification code 50FP1 punched 
in columns 76-80. 

This section writes disk addresses whose values are 
equal to the normal addresses plus 260,000. It is by use 
of these false addresses that the file-protected area is 
created. 



COBOL Update 

The COBOL Update deck is punched in the Autocoder 
condensed-loader format and the updat control-card 
format. The deck is made up of approximately 3300 
cards, and contains the phases of the cobol compiler. 
The updat cards are identified by the code 50CB1 
punched in columns 76-80; the cobol phases are iden- 
tified by the code 50xxl punched in columns 76-80, 



where x is alphameric. The function of the deck is to 
load the cobol compiler phases on the disk unit, thus 
permitting a cobol run. 

COBOL Macros 

The COBOL-macros deck is punched in the Autocoder 
library card format. The deck contains approximately 
1800 cards and is identified by the code 50Mxl punched 
in columns 76-80, where x is alphameric. This deck 
places the cobol object-time subroutines and macro 
instructions that set switches during assembly on the 
Autocoder Macro Library, cobol requires that these 
macros be present during coBOL-output assembly. 

COBOL Sample Program 

The COBOL Sample Program consists of approximately 
250 cards. The 1401 deck is identified by the code 
SAMPLE-1 punched in columns 73-80. The 1440 deck 
is identified by the code SAMPLE-2 punched in col- 
umns 73-80. The 1460 deck is identified by the code 
SAMPLE-3 punched in columns 73-80. This source 
deck, written in the cobol language, is used to test the 
effectiveness of the system built by the user. 



Building a COBOL System 

After all sets of cards have been labeled and those sets 
of cards not applicable to the user's system have been 
removed, the user is ready to use the prepared system 
deck to build the cobol system. 

Figure 16 is a block diagram showing the building of 
a disk-resident system. 

The system unit must be prepared for writing the 
complete system from cards. The user must clear disk 
unit in the move mode from 000000 to 000199, in the 
load mode from 000200 to 000259, in the move mode 
from 000260 to 000299, in the load mode from 000300 
to 007199, and in the move mode from 007200 to 
019979. The Clear Disk Storage Program applicable 
to the user's system can be used for this operation. 

Figure 16.1 shows the disk storage allocation on the 
system unit. 

The control cards for the utility program must be 
punched in the following manner: 

For 1311, 



Columns 


Contents 


1-15 


M00000000019900 


21-35 


L00020000025900 


41-55 


M00026000029900 


Columns 


Contents 


1-15 


L00030000719900 


21-35 


M00720001997900 
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For 1301, 



Clear Disk 



1301 



Build Autocoder 

and 
Autocoder Library 



Insert IOCS 



Modify 
System Control 




Write 

File -Protected 

Addresses 



Prepare 
COBOL Update 

and 
COBOL Macros 



Update System 



Run 
Sample Program 



Figure 16. Building the cobol System. 



1311 



Columns 


Contents 


1-15 


M000000000199+ + 


21-35 


L000200000259+ + 


41-55 


M000260000299 + + 


Columns 


Contents 


1-15 


L000300007199 + + 


21-35 


M007200019979+ + 



The user must build an Autocoder system, including 
the Autocoder Library. After the Autocoder system 
has been built, the IOCS macros must be inserted into 
the LIBRARY file of the Autocoder system. The pro- 
cedures for building an Autocoder system and insert- 
ing the IOCS macros into the Autocoder Library are 
described in Autocoder (on Disk) Program Specifica- 
tions and Operating Procedures for IBM 1401, 1440, 
and 1460, Form C24-3259. After the Autocoder system 
has been built, the user is ready to build the cobol 
system. 



System Control Modification 

The System Control Program must be modified. Use 
the deck labeled system control modification to per- 
form this function. Input for the process is as follows. 

1. The 1402 or 1442 Card Boot deck (supplied as a part 
of the Autocoder System Program deck), followed 
by 

2. The SYSTEM ASGN card, which must be punched by 
the user, followed by 

3. The System Control Modification deck, followed by 

4. The halt card, which is the last card of the System 
Control Modification deck. 

To modify the System Control Program when the 
system is to reside on 1811: 

1. Ready the pack on disk drive 0. 

2. Set the I/O check-stop switch off. 

3. Set the check-stop switch and disk-write switch on. 

4. Set the mode switch to run. 

5. Press check reset and start reset. 

6. Place the System Control Modification deck in the 
card reader. 

7. Load the program. 

a. 1402 Card Reader: Press load. 

b. 1442 Card Reader: Press start on the reader, 
and program load on the console. 

8. When the system attempts to read the last card, 

a. 1402 Card Reader: Press start. 

b. 1442 Card Reader: Press start on the reader. 
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File 


Mode 


File-Protected 


Sector Range 


SYSTEM File 








Autocoder Preprocessor 


Move 


No 


000000-000089 


Work Area 








Autocoder Preprocessor 


Move 


No 


000090-000199 


Autocoder Preprocessor 


Load 


No 


000200-000259 


Autocoder Preprocessor 


Move 


No 


000260-000299 


Autocoder Preprocessor 


Load 


No 


000300-000899 


Not Used 


Load 


No 


000900-002499 


System Control 


toad 


Yes 


002500-003175 


Program 








Autocoder Assembler 


Load 


Yes 


0031 76-004799 


Program 








COBOL Compiler 


Load 


Yes 


004800-007199 


Program 








WORKl andWORK2 Files 


Move 


No 


007200-009399 


WORK3 File 


Move 


No 


009400-012899 


LIBRARY File 


Move 


No 


012900-019979 



Figure 16.1. Disk Storage Allocation 

To modify the System Control Program when the 
system is to reside on 1301: 

1. Set the I/O check-stop switch oflF. 

2. Set the check-stop switch and disk-write switch on. 

3. Set the mode switch to run. 

4. Press check reset and start reset, 

5. Place the System Control Modification deck in the 
card reader. 

6. Load the program. 

a. 1402 Card Reader: Press load. 

b. 1442 Card Reader: Press start on the reader, 
and PROGRAM LOAD on the console. 

7. When the system attempts to read the last card, 

a. 1402 Card Reader: Press start. 

b. 1442 Card Reader: Press start on the reader. 

The halts that can occur when using the System 
Control Modification deck are shown in Figure 14. 



Write File-Protected Addresses 

The last card in the section labeled write file protect 
is a control card that is partially prepunched. It is by 
the use of this control card that the limits of the file- 
protected area in the disk-storage unit are supplied. 
The user must indicate in the control card whether the 
system is to reside on a 1301 or 1311 disk unit. For both 
the 1301 and 1311, the system must be built on drive 
unit 0. In the case of the 1311, the system pack can be 



used on any drive once the system has been built. The 
control card is punched as follows: 

Columns Contents 

1-15 FILE-PROTECT ON (prepunched) 

17-20 1301 or 1311 

22 (prepunched) 

24-42 FROM NORMAL ADDRESS (prepunched) 

44-49 004800 (prepunched) 

51-52 TO (preunched) 

54-59 D07200 (prepunched) 

After columns 17-20 have been punched by the user, 
the card must be replaced as the last card of the 
section. 

To use the section when the system is to reside on 
1311: 

1. Ready the pack on disk drive 0. 

2. Set the write-address mode switch on. 

3. Set the write-disk switch on. 

4. Set the I/O check stop switch on. 

5. Press check reset and start reset. 

6. Place the Write File-Protected Addresses section in 
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7. Load the program. 

a. 1402 Card Reader: Press load. 

b. 1442 Card Reader: Press start on the reader, and 
PROGRAM LOAD on the cousolc. 

8. When the system attempts to read the last card, 

a. 1402 Card Reader: Press start. 

b. 1442 Card Reader: Press start on the reader. 
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9. At the end of the job, set the write-address mode 
switch oJff. 

To use the deck when the system is to reside on 1301: 

1. Set the write-address mode switch on. 

2. Set the write-disk switch on. 

3. Set the I/O check stop switch on. 

4. Press check reset and start reset. 

5. Place the Write File-Protected Addresses section in 
the card reader. 

6. Load the program. 

a. 1402 Card Reader: Press load. 

b. 1442 Card Reader: Press start on the reader, and 
PROGRAM LOAD on the consolc. 

7. When the system attempts to read the last card, 

a. 1402 Card Reader: Press start. 

b. 1442 Card Reader: Press start on the reader. 

8. At the end of the job, set the write-address mode 
switch off. 

The following halts can occur when writing file- 
protected addresses. 



Halt Number 
(A-Address Register) 

020 



021 



022 



023 



024 



025 



026 



Meaning 

Last card condition was sensed before 
the control card. The control card con- 
taining the initial and terminal addresses 
of the area to be file-protected must be 
the last card of the deck. When the sys- 
tem is restarted by pressing start, a 
read operation is performed. 

An invalid disk type is specified in the 
control card. 1301 or 1311 are the only 
valid entries for columns 17-20 of the 
control card. When the system is re- 
started by pressing start, a read opera- 
tion is performed. 

An invalid disk unit is specified in the 
control card. The only valid entry for 
column 22 of the control card is 0. 
When the system is restarted by pressing 
START, a read operation is performed. 

An invalid start address (columns 44-49) 
is specified in the control card. The start 
address must be 004800. When the sys- 
tem is restarted by pressing start, a 
read operation is performed. 

An invalid end address (columns 54-59) 
is specified in the control card. The end 
address must be 007200. When the sys- 
tem is restarted by pressing start, a 
read operation is performed. 

Disk unit is not ready. When the sys- 
tem is restarted by pressing start, the 
disk I/O operation is retried. 

The area specified in the control card is 
already file-protected (all or in part). If 
the system is restarted by pressing start, 
the entire specified area will be file-pro- 
tected and cleared. 



Halt Number 
(A-Address Register) 

027 



028 



029 



030 



Meaning 

The area specified in the control card 
has neither the "normal" disk addresses 
(000000-?) nor file-protected addresses. 
This is a hard halt. 

Parity check or wrong-length record 
error occurred on the disk unit while 
writing addresses. When the system is 
restarted by pressing start, the disk 
I/O operation is retried. 

Parity check or wrong-length record 
error occurred on the disk unit while 
determining the existing addressing 
scheme. This is a hard halt. 

End of the job. 



COBOL Update and COBOL Macros 

To build the cobol system, the decks labeled cobol 
update and cobol macros are used. Input for this 
building process is as follows. 

1. The 1402 or 1442 Card Boot deck (supplied as a 
part of the Autocoder system program deck), fol- 
lowed by 

2. The SYSTEM ASGN card, which must be punched by 
the user, followed by 

3. The COBOL update deck, followed by 

4. The COBOL macros deck, followed by 

5. The HALT card, which must be punched by the user. 
To build the system when it is to reside on 1311: 

1. Ready the pack on disk drive 0. 

2. Set the write-address mode switch off. 

3. Set the I/O check-stop switch off. 

4. Set the check-stop switch and disk-write switch on. 

5. Set the mode switch to run. 

6. Press check reset and start reset. 

7. Load the program. 

a. 1402 Card Reader: Press load. 

b. 1442 Card Reader: Press start on the reader, and 
PROGRAM LOAD on the consolc. 

8. When the system attempts to read the last card, 

a. 1402 Card Reader: Press start. 

b. 1442 Card Reader: Press start on the reader. 

To build the system when it is to reside on 1301: 

1. Set the I/O check-stop switch off. 

2. Set the write-address mode switch off. 

3. Set the check-stop switch and disk-write switch on. 

4. Set the mode switch to run. 
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5. Press check reset and start reset. 

6. Load the program. 

a. 1402 Card Reader: Press load. 

b. 1442 Card Reader: Press start on the reader, and 
program load on the console. 

7. When the system attempts to read the last card, 

a. 1402 Card Reader: Press start. 

b. 1442 Card Reader: Press start on the reader. 

The halts that can occur when using the cohol update 
and COBOL macros decks are shown in Figure 14. 



the Autocoder system program deck, followed by 

2. The system asgn card, which must be punched by 
the user, followed by 

3. The coreload asgn card, followed by 

4. The COBOL run thru execution card, followed by 

5. The source program statements and the end of 
source card, followed by 

6. The HALT card, which must be punched by the user. 

The procedures for running the Sample Program are 
described in Running a Stack. 



Sample Program 

The Sample Program, which is used to test the efiFec- 
tiveness of the system built by the user, calculates and 
lists a table of salaries. A listing of the Sample Program 
is shown in Appendix IV. Figure 17 shows the Sample 
Program deck. 

The first card in the Sample Program is a partially 
prepunched control card used for assigning the core- 
load file. 

The user must indicate in the control card whether 
the system resides on a 1301 or 1311 disk unit. The con- 
trol card is punched as follows: 



Updating a COBOL System 

The COBOL system is updated by the use of pre- 
punched card decks suppHed by ibm. All necessary 
control cards and data cards are included in the deck. 
An update job is performed as described in Prepar- 
ing a Stack and Runnina a Stack 



(^HALT 



I^END OF SOURCE 



IDENTIFICATION DIVISION 



f^COBOL RUN THRU EXECUTION 



/CORELOAD ASGN 



/system ASGN 



Columns Contents 
6-13 CORELOAD (prepunched) 

16-19 ASGN (prepunched) 

21-24 1301 or 1311 

26-57 UNIT 0, START 000100, END 000199 (pre- 

punched ) 

The Sample Program is prepared for a stack run in 
the following manner. 

1. The Card Boot deck, which is supplied as part of Fij^ure 17. Sample Program 




St^plied 
by the user 



-Supplied by the user 



-*— Supplied in Autocoder System deck 
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Appendix I 



This section contains a summary of the formats of all 
control cards that are required for system operations. 
Each control card is punched in the Autocoder format 
(the label field is in columns 6-15, the operation field is 
in columns 16-20, and the operand field is in columns 
21-72). 

The user is again reminded that in columns 21-72, 
blanks must appear as indicated in the individual 
formats. 

Figure 18 shows the formats of asgn cards and the 
assumed assignments for the logical files. Figure 19 
shows the vaHd device entries for the asgn cards. 

Figure 20 shows the formats of the following control 
cards: 

Halt (halt) card 

Note (note) card 

Pause (pause) card 

Run (run) cards. 

Note: Update cards are prepunched and included in the card 
decks supplied by ibm for updating the user's system. 
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ASGN Card Format 


Assumed Assignment 


Remarks 


Label Field 
(Columns 6-15) 


Operand Field 
(Columns 16-20) 


Operand Field 

(Columns 21-72) 






SYSTEM 


ASGN 


1311 UNITn / 
J1301 UNITOJ 


1311 unit — user-assigned 

1301 unit ~ must be assigned to UNIT 


The SYSTEM ASGN can! is the only 
required ASG N card . It must fol low 
the Card Boot in a stack of jobs . Any 
other SYSTEM ASGN cards in the 
stack ore invalid . If the user desires 
that the COBOL system use less than 
the number of core storage positions 
available in the processor machine, 
punch a comma in column 32, and 4K, 
8K, 12K, or 16K beginning in column 
34. 


CONTROL 


ASGN 


J READER n 

1 CONSOLE PRINTER 


READER 1 


If the CONTROL file and the INPUT 
file are assigned to the card reader, 
the assignment must be to the same 
card reader. 


MESSAGE 


ASGN 


JPRINTERn ( 
jCONSOLE PRINTER! 


PRINTER 2 


When the MESSAGE file is assigned 
to tbe CONSOLE PRINTER, carriage 
control characters used with the 1403 
or 1443 printer may appear in the 
message. If the MESSAGE Hie and 
the LIST file are assigned to the 
printer, the assignment must be to the 
same printer. 


LIST 


ASGN 


( PRINTER n j 
) 1311 UNIT n, START nnnnnn, END nnnnnnl 
) 1301 UNIT n, START nnnnnn, END nnnnnn ( 
f OMIT ' 


PRINTER 2 


If the LIST file is assigned to 
PRINTER 1 (1403), the Output 
processor of the Autocoder system 
develops a 1 00-character program 
listing. If the MESSAGE file and the 
LIST file are assigned to the printer, 
the assignment must be to the same 
printer. 


INPUT 


ASGN 


(reader n ) 
^1311 UNITn, START nnnnnn, ENDnnnnnnV 
f 1301 UNIT n, START nnnnnn, END nnnnnn^ 


READER 1 


If the CONTROL file and the INPUT 
file are assigned to the card reader, 
the assignment must be to the same 
card reader. 


OUTPUT 


ASGN 


(punch n ) 
)1311 UNITn, START nnnnnn, END nnnnnn f 
) 1301 UNIT n, START nnnnnn, END nnnnnn ( 
(OMIT ) 


PUNCH 4(1401 and 1460) 
PUNCH 1 (1440) 




LIBRARY 


ASGN 


Jl311 UNIT n, START nnnnnn, END nnnnnn j 
1301 UNIT n, START nnnnnn, END nnnnnn J 


1311 UNITO, START 012900, END 01990) 
1301 UNIT 0, START 012900, END 019980 


131 1 is ossumed if the SYSfEM file is 
assigned to 1311; 1301 is osswned if 
the SYSTEM file is assigned to 1301 . 
If the MESSAGE, LIST, ad WORKS 
files are assigned to a printer, the 
assignment must be to the some printer. 


WORK1 


ASGN 




1311 UNITn, START nnnnnn, END nnnnnn 
1301 UNITn, START nnnnnn, END nnnnnn , 


1311 UNIT 0, START 007200, END 009400 
1301 UNIT 0, START 007200, END 009400 


WORK2 


ASGN 


1311 UNITn, START itnnnnn, END nnnnnn j 
1301 UNITn, START nnnnnn, END nnnnnn ( 


1311 UNITO, START 007200, END 009400 
1301 UNIT 0, START 007200, END 009400 


WORK3 


ASGN 




1311 UNITn, START nnnnnn, END nnnnnn 
1301 UNIT n, START nnnnnn, END nnnnnn 


1311 UNITO, START 009400, END 012900 
1301 UNITO, START 009400, END 012900 


WORK 4 


ASGN 


(l311 UNITn, START nnnnnn, END nnnnnn ) 
< 1 301 UNIT n, START nnnnnn, END nnnnnn \ 
(OMIT ) 


omit 


WORKS 


ASGN 


( 1311 UNIT n, START nnnnnn, END nnnnnn) 
; 1301 UNIT n, START nnnnnn, END nnnnnn' 
) PRINTER n ( 
( OMIT ' 


OMIT 


CORELOAD 


ASGN 


(l311 UNIT n, START nnnnnn, END nnnnnn) 
< 1301 UNIT n, START nnnnnn, END nnnnnn 5- 

(omit ) 


OMIT 



Figure 18. asgn Card Formats and Assumed Assignments 
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Device Entry and Values of n and nnnnnn 


Remarks 


r-^^HuNlTn, START nnnnnn, END nnnnnn 
|1301| 

n is the number of the disk unit, and can be 
0, 1 , 2, 3, or 4; nnnnnn is a disk address. 


The END address is the address of the next available sector. 

The values of nnnnnn must adhere to the following rules: 

1. WORKl and WORK2 files. If the disk unit is 1311, the 

START address must be a multiple of 200. If the disk unit 
is 1301 , the START address must be a multiple of 800. 
The END address (1311 and 1301) must be a multiple of 
40. 

2. WORK3, WORK4, and WORKS files. Ihe START and 

END addresses (1311 and 1301) must be multiples of 10. 

3. LIBRARY file. The START and END addresses (1311 and 
1 301 ) must be multiples of 20 . 

If these rules are violated, the system automatically narrows 
in the disk area to an area that does adhere to these rules. 


READER n 

For 1402, n can be 0, 1, or 2. 

For 1442, n can be 1 or 2. 


For 1402, n represents the pocket into which the cards are 

stacked . 

For 1442 and 1444, n represents the number of the unit. 


PUNCH n 

For 1402, n can be 0, 4, or 8. 
For 1442, n can be 1 or 2. 
For 1444, n must be 3, 


PRINTER n 

n can be 1 or 2 


n represents the number of print positions available on the 
T403 or 1443. 

For 1403, a 1 indicates 100 positions and a 2 indicates 132 

positions. 

For 1443, a 1 indicates 120 positions and a 2 indicates 144* 

positions . 

*Only 132 print positions are used by the COBOL system. 


CONSOLE PRINTER 


The console printer must be an IBM 1447 without a buffer 
feature . 


OMIT 


Select this option when the file is not to be used by the 
COBOL system. LIST, OUTPUT, WORK4, WORK5, and 
CORELOAD are the only files that can be omitted. 



Figure 19. Valid Device Entries 



Name of Card 


Label Field 
(Columns 6-15) 


Operation Field 
(Columns 16-20) 


Operand Field (Columns 21-72) 

— 


Halt 




HALT 


Any message and/or identification 


Note 




NOTE 


Any message and/or instruction 


Pause 




PAUSE 


Any message and/or instruction 


Run 


COBOL 
COBOL 
COBOL 
COBOL 


RUN 
RUN 
RUN 
RUN 


THRU AUTOCODER 
THRU OUTPUT 
THRU EXECUTION 



Fij^urc 20. Control-Card Formats 
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Appendix II 



Name 


ID 


Card Build 


50X41 

(1442) 
50X01 

(1402) 


Card Boot 


50SZ1 

(1442) 
50PZ1 

(1402) 


System Boot 


50S01 



50S11 



50S21 



The name, identification, and function of each phase 
in the cobol system are given in the following sections. 



System Control Program 

This section describes the phases that make up the 
System Control Program. 

Function 

Builds System Control on a disk 
unit. 



Read the system asgn card and 
reads in the System Boot from 
the specified disk unit. 

1. Determines machine size. 

2. Initializes switches according 
to the type of reader, punch, 
and printer (serial or parallel). 

3. Reads in the I/O package. 

4. Calls the determiner. 

Contains the assumed assignments 
for the logical files. 

1. Reads or writes disk in the 
move or load mode. The mode 
depends on the processor 
operation. 

2. Determines whether the user 
has exceeded specified 

file limits. 

3. Branches to the processor 
phase, or branches to the 
end-of-file routine if the 
end-of-file has been sensed. 

Reads in the specified phase 
from disk storage and branches 
to the specified phase. 



Initializes the specified area with 
a twenty-character control word. 
This control word is obtained 

from the temporary file-hardware 

». - 1- 1 - 
lituit;. 

Reads the control file until a 
control card (halt, pause, note, 
UPDAT, RUN, or asgn) is sensed. 
When a control card is sensed, 
the determiner causes a halt 
or pauses, prints out a note, calls 
the update determiner, calls 
the selector, or calls the con- 
figurator, depending upon the 
type of card. 



File-Hardware 
Table 

Input/Output 
Package 



Super 


50S31 


Super 1 


50S41 


Super 2 


50S51 


Super 3 


50S61 


Super 4 


50S71 


Super 5 


50S81 


Super 6 


50S91 _ 


Open 1 


50SA1 \ 
50SB1 J 


Open 2 



Determiner 



50SC1 



Name 


ID 


Function 


Phase Index 
Table 


50SD1 


Contains the locations of the 
phases in the system. 


Configurator 


50SE1 


Updates the temporary 
file-hardware table as specified 
by the asgn card(s). 


Selector 


50SF1 


Initializes the files used by the 
processor being called, and 
calls the first phase of that 
processor. 


Update 
Determiner 


50SG1 


Determines the type of update 
operation being performed, and 
calls in that particular updater. 


Update Insert 


50SH1 


Places a new phase on the 
SYSTEM file in any available 
location. 



Update Header 50SI1 

Update Delete 50SJ1 

Update Patch 50SK1 

Dump 1 50SL1 

Dump 2 50SM1 

File Print 1 50SN1 

File Print 2 50SO1 

File Print 3 50SP1 



Updates the header of a phase 
that is in the system file, as 
specified by a header card. 

Deletes a phase from the 
SYSTEM file. 

Patches a part of a phase on 
the SYSTEM file. 

Prints storage on the list file. 



Prints all WORK files on the 
LIST file. 



Name 


ID 


CBL 


50CB1 


AOl 


50A01 


All 


50A11 



COBOL Compiler 

This section describes the phases that make up the 
COBOL compiler. 

Function 

Initialization of deblocking routines (getex and 
puTEx) and I/O buffers. 

Initialization for the rest of the A and B phases. 

1. Reads and Hsts the source program (from the 
INPUT file to the list file). 

2. Delimits items in the source program. 

1. Outputs Autocoder statements from source 
programs to place file (workS). 

2. Outputs source statements to source-merge 
file (work4). 

1. Inserts internal operators based upon pivoted 
key words present in tables A23 through A53. 

2. Conditions punctuation. 

Table of pivotal key words. 
Table of pivotal key words. 
Table of pivotal key words. 



A 09 .E;nA9i 



A03 50A31 



A23 
A33 
A43 



50A41 
50A51 
50A61 
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Name 

A53 

A14 



ID 
50A71 
50A81 



A24 50A91 



Function 
Table of pivotal key words. 

1. Loads core storage with interpretive strings 
for syntax analysis. 

2. Positions the getex file (work1/work2), by 
division, for phase A24. 

1. Analyzes the source program through the 
use of the interpretive strings. 

2. Inserts diagnostic operators into the stream 
of source program symbols. 



AS2 


50201 


AT2 


50211 


AU2 


50221 


AV2 


50231 


AW2 


50241 


AX2 


50251 


AY2 


50261 


AZ2 


50271 


A-2 


50281 


AJ2 


50291 


AK2 


502A1 


AL2 


502B1 


AM2 


502C1 


AN2 


502D1 


A02 


502E1 


AP2 


502F1 


AQ2 


502G1 


AR2 


502H1 


AA2 


50AC1 


AB2 


50AD1 


ASS 


5030f 


AT3 


50311 


AU3 


50321 


AV3 


50331 


AW3 


50341 


AX3 


50351 


AY3 


50361 


AZ3 


50371 


A-3 


50381 


AJ3 


50391 


AK3 


503A1 


AL3 


503B1 


AM3 


503C1^ 


AA3 


50AE1 


AS4 


50401^ 


AT4 


50411 


AU4 


50421 


AV4 


50431 


AW4 


50441 


AX4 


50451 


AY4 


50461 



Interpretative strings for identification and 
ENVIRONMENT DIVISIONS (4K systems only). 



Interpretative strings for identification and 
ENVIRONMENT DIVISIONS (8K, 12K, and 16K sys- 
tems only). 



Interpretative strings for file section of the 
DATA division (4K systems only). 



Interpretative strings for file section of the 
DATA division (8K, 12K, and 16K systems only). 



Interpretative strings for working-storage and 
constant sections of the data division (4K 
systems only). 



Name ID 


AA4 


50AF1 


AS5 


sosor 


ATS 


SOS 11 


AU5 


50521 


AV5 


50531 


AW5 


S0541 


AX5 


50551 


AY5 


50561 


AZ5 


50571 


A-5 


50S81 


AJ5 


50591 


AK5 


S05A1 


AL5 


505B1 


AM5 


505C1 


AN5 


505D1 


A05 


505E1 


APS 


505F1 


AQ5 


505G1 

> 


AA5 


50AG1 


A34 


50AA1 


A44 


50AB1 


AOS 


SOAHl 


BOl 


50B01 



Function 

Interpretative strings for working-storage and 
constant sections of the data division (8K, 
12K, and 16K systems only). 



Interpretative strings for the procedure divi- 
sion (4K systems only). 



B02 SOBll 

B12 50B21 

B03 50B31 

B04 50B41 



Interpretative strings for the procedure divi- 
sion (8K, 12K, and 16K systems only). 

Supervises iterations through strings and divi- 
sions. 

Positions getex file (work1/work2) in relation 
to unprocessed data for iterations 

1. Further source-program analysis. 

2. Conditions source program for the rest of 
the compiler. 

1. Substitutes compressed names for source 
names and literals. 

2. Builds name table in core storage. 

3. Determines error conditions associated with 
name-qualification and multi-definitions. 

Determines error conditions associated with 
COBOL reserved words used as names within the 
source program. 

Table of cobol reserved words. 

Outputs COBOL dictionary on list file. 

1. Creates data description for literals used in 
the source program. 

2. Outputs data descriptions for all items on 
the place file (work3). 



BOS 


50B51 


BXl 


50B61 


BX2 


50B71 


BX3 


50B81 


BX4 


S0B91 


BX5 


50BA1 


BX6 


SOBBl 


BX7 


50BC1 


BX8 


50BD1 


BX9 


50BE1 


BXO 


50BF1 



.Outputs diagnostic messages on list file. Diag- 
nostic message tables. 
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'Name ID Function 

B06 50BG1 Assigns unique compressed names to multi- 
defined names. 

B07 50BH1 1. Substitutes unique names when qualified. 

2. Outputs qualified name dictionary on the 
LIST file. 

COl 50C01 Entire phase is executed only if a special- 
names paragraph appears in the source pro- 
gram. 

1. Outputs special-names data descriptions on 

the PLACE file ( WORKS). 

2. Generates Autocoder-coBOL equate cards. 

3. Conditions switch-names for further process- 
ing. 

C02 50C11 Optional phase. Processes level -88 items, con- 
verting appearances of condition names in the 
PROCEDURE DIVISION to Conditional expressions. 

COS 50C21 Optional phase. Inserts move instructions into 
the overlay portion of the procedure division 
to initialize values of data items. 

DOl 50D01 1. Analyzes picture clauses to determine size, 
class, decimal count, and editing. 
2. Builds a table of all 01-level names which 
encompass an occurs clause or redefinition. 

D02 SOD 11 1. Builds an internal description for each entry 
used based upon the clauses used in the 
source declarations. 

2. Updates these descriptions with information 
obtained from the picture analysis in 
Phase DOl. 

3. Generates diagnostics where discrepancies 
are recognized. 

DOS 50D21 1. Phase DOS is called only if editing is used. 
2. Builds and declares edit masks and completes 
the edit section of the data description. 

DIS 50D31 1. Outputs editing masks on place file (workS). 
2. Inserts file-names into write statements. 
S. Converts write-from statements into move 
and WRITE statements. 

D04 50D41 1. Builds group size by totaling the elementary 
sizes. 

2. Provides padding for occurs clauses. 

3. Controls nested redefinition sizes and origin 
flags. 

4. Processes subscript levels. 

DOS S0D51 1. Controls word-mark placement of each entry. 

2. Controls nested redefinition origin names. 

3. Processes file-record equates and sizes. 

4. Outputs storage-declaration macros. 

D06 50D61 1. Places the data description of all entries used 
on the PLACE file (workS). 
2. Expands across and outputs storage declara- 
tions on the PLACE file (workS). 

EOl SOEOl Generates the job card. 

E02 50E11 Collects environment division information in 
core storage for DIOCS entries. 

EOS S0E21 1. Collects data division information in core 
storage for DTP entries. 
2. Outputs initial DTF information on the 
putex fiHe (work1/work2). 

E04 50E31 Processes open statements and collects file- type 
information in core storage for DTF entries. 

E4A S0E41 Optional phase. Processes the declaratives sec- 
tion, collecting use information in core storage 
for phase EOS. 



Name ID Function 

EOS 50E51 Processes close, read, seek, and write state- 
ments. 

1. Converts disk write statements to special 
read statements to facilitate handling of im- 
plied INVALID KEY Option. 

2. Inserts appropriate file-limits tests and per- 
form statements for disk file read, seek, 
and write statements. 

S. Collects rewind options for tape files from 
the CLOSE statements into core storage for 
DTF entries. 

E06 S0E61 1. Analyzes information in core storage, deter- 
mining additional DIOCS entries. 
2. Determines error conditions associated with 
DIOCS. 

E07 50E71 Outputs: 

1. ctl card. 

2. ORG card, if IOCS not used. 

S. DIOCS entries, if IOCS is used on the place 
file (workS). 

EOS S0E81 Outputs additional DIOCS entries. 

E8A S0E91 Outputs DIOCS associated diagnostics. 

E09 SOEAl Loads core storage with subroutines to be used 
by the rest of the E-phases. 

(ElO, Ell ElA, E12, and EIS operate iteratively by file.) 

ElO SOEBl 1. Determines additional DTF entries. 

2. Determines I/O area requirements. 

3. Determines errors associated with DTF en- 
tries. 

Ell 50EC1 Outputs DTF entries on the place file (workS). 

ElA SOEDl Optional phase. 

Outputs additional DTF entries on the place 
file (workS) when tape files are used in the 
source program. 

E12 SOEEl Outputs DTF associated diagnostics on the 
place file (workS). 

EIS 50EF1 Optional phase. Outputs additional DTF entries 
on the PLACE file (work3) when standard labels 
are used in the source program. 

E14 SOEGl Outputs: 

1. DA statements. 

2. MACOP macro. 

3. LDNGO macro (if thru execution is speci- 
fied on the COBOL run card) on the place 
file ( WORKS). 

FOl SOFOl 1. Delimits conditional expressions and the ele- 
ments within them. 

2. Conditions compute statements. 

3. Conditions usage of subscripting. 

F02 SOFll Processes conditional statements, converting ex- 
pressions to the simple relational form. 

FOS S0F21 Processes read statements. 

F04 S0F31 1. Phase F04 is called if the perform verb is 
used. 

2. Generates labels associated with perform 
statements and inserts them into the per- 
form statements. 

3. Associates "last" name of the perform state- 
ment with the label and builds a table of 
these elements. 
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Name ID 
F05 50F41 



GOl 50G01 



G02 50G11 



G03 50G21 



Function 

1. Searches for procedure-names and inserts 
"pending" labels as return-linkages. 

2. The table built in F04 is searched for the 
procedure-names found and the labels are 
made pending. 

1. Breaks down the following cobol source 
statements into macro form: 

a. ADD 

b. SUBTRACT 
C. MULTIPLY 

d. DIVIDE 

e. MOVE 

f. PERFOHM (options 1 and 2) 

g. READ (no AT end). 

2. Conditions perform (options 3, 4, and 5) 
and AT end and invalid key options for fur- 
ther processing. 

1. Processes arithmetic operators in arithmetic 
expressions and compute statements. 

2. Processes relational operators in if and un- 
til expressions. 

3. Passes generated labels and logic connectors 
to phase G03. 

1. Processes conditional statements. 

2. Ties in generated labels for read linkage, 
until, and if with conditional statements. 



Name ID 
102 50111 



G04 50G31 1. Expands fixed form cobol statements to 
macro statements. 

2. Creates linkage macros for perform (options 
3, 4 and 5). 

3. Determines number of generated temporary 
buckets needed in object-run arithmetic 
computations. 

G05 50G41 Eliminates redundant linkages in relational 
statement to fully optimize these statements. 

G06 50G51 Eliminates redundant generated temporary 
buckets used in intermediate computations to 
fully optimize arithmetic statements. 

HOI 50H01 1. Collects data, device, switch, and literal de- 
scriptions and converts these descriptions to 
table entries. 

2. Processes subscript macros. 

3. Inserts the appropriate data-name after each 
occurrence of a subscript name. 

H02 50H11 1. Sets up storage for Phases H03 and H04 
one-time or iterative processing. 

2. Table initialization. 

3. Clears storage. 

4. Calls H03. 

H03 50H21 1. Builds a table of data descriptions in storage 
from PLACE file (work3). 
2. Calls H04 when the procedure division is 
recognized. 

H04 50H31 1. Merges data descriptions after every name 
in the procedure division that has a de- 
scription. 
2. Iterates back to H02 when necessary. 

101 50101 1. Selects the appropriate lists for fixed expan- 
sions, ADVANCING option, STOP RUN, and 
switches. 

2. Conditions relational macros for further proc- 
essing. 

3. Sets up parameters for examine subroutine. 



103 50121 



104 50131 



105 50141 



106 50151 



107 50161 



108 50171 



JOl 50J01 



J02 50J11 

JOS 50J21 

J04 50J31 

J05 50J41 

J06 50J51 

J07 50J61 

JOS 50J71 



Function 

1. Sets up parameters for display, accept, and 
GO TO depending Subroutines. 

2. Expands if numeric and if alphabetic 
macros. 

3. Selects appropriate librar>' lists for stop 
literal. 

4. Diagnostic scan of conditions. 

5. Selects appropriate library instructions for 
read, v(^rite, open, and close. 

6. Conditions subscript macros and sets up 
parameters for subscript subroutines. 

1. Conditions input data for further processing 
and scans data for validity. 

2. Conditions giving, positive, negative, and 
relational macros for further processing. 

3. Diagnostic scan of arithmetic expressions. 

1. Selects appropriate library lists and sub- 
routines for MOVE and move all macros. 

2. Conditions positive and negative macros 
for further processing. 

Conditions arithmetic macros for further proc- 
essing by 106. 

a. Keeps a record of intermediate accumu- 
lators. 

b. Calculates decimal alignment. 

c. Optimizes library codes to be selected. 

1. Selects appropriate library lists for arithmetic 
and ON size error, macros. 

2. Conditions relational macros for further proc- 
essing. 

1. Selects appropriate library hsts for all arith- 
metic macros not processed up to this phase. 

2. Selects appropriate library lists for the posi- 
tive and negative macros. 

3. Performs a diagnostic scan of giving and 
GIVING (rounded) macros. 

4. Processes rounding, editing, and decimal 
alignment of giving macros. 

5. Selects appropriate library lists for giving 
macros. 

1. Determines the type of compares to be set 
up for relationals. 

2. Calculates decimal alignment where neces- 
sary for these comparisons. 

3. Selects appropriate library lists and sub- 
routines. 

4. Performs a diagnostic scan of relational 
macros. 

1. Substitutes all parameters into model state- 
ments (JA2 through JA8) selected from li- 
brary. 

2. Provides for iteration if the tables of Phase 
J02 through JOS (library) will not fit in stor- 
age at one time. 



Library of model statements for 4K and 8K 
systems only. 
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'Name ID 



JA2 
JA3 
JA4 
JA5 
JA6 
JA7 
JA8 



50J81 
50J91 
50JA1 
50JB1 
50JC1 
50JD1 
50JE1 



Function 



Library of model statements for 12K and 16K 
systems only. 



J09 50JF1 



J 10 50JG1 



J- 



1. 



1. Sets up subroutine linkages. 

2. Calculates, if necessary, subscript addresses. 

3. Generates calls for cobol macros. 

1. Selects from place file (workS) in the fol- 
lowing sequence and outputs on putex file 
(work1/work2): 

a. JOB card 

b. Control Card 

c. Origin Card 

d. DIOCS 

e. DTF 

f . Procedure literals 

g. Edit Masks 
h. Storage declarations 
i. File areas 

Generate constants, index registers, tem- 
porary storage counters, and tally register 
Data literals and data moves 
Calls procedure instructions from getex 
file (work1/work2). 

Jll 50JH1 1. Outputs diagnostics occurring because of 
conflictions between data division and pro- 
cedure DIVISION. 

2. Merges in Autocoder symbolic statements 
with diagnostics. 

3. Calls in Phases JTl, JT2, and JT3. 

IOCS Data and Procedure diagnostic tables. 
IOCS Data and Procedure diagnostic tables. 
IOCS Data and Procedure diagnostic tables. 

1. Optional merge of cobol source statements 
into Autocoder symbolic output (from work4 
to work1/work2). 

2. Lists diagnostic messages (list file). 

3. Converts diagnostic messages to internal note 
format to be inserted into Autocoder sym- 
bolic output. 

J13 50JM1 1. Outputs Autocoder symbolic program (out- 
put file). 
2. Optional listing of Autocoder symbolic pro- 
gram (work5). 



JTl 


50JI1 


JT2 


50JJ1 


JT3 


50JK1 


J12 


50JL1 
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Appendix III: COBOL Macros 



AAacro 
Name 


Subroutine 
Name 


Subroutine 
Mnemonic 


Approximate 
Size* 


Reason AAacro Called 


M/D 


No M/D 


ACEPT 


Accept 


ZAX 


349, (358)^ 


349, (358)^ 


Useof ACCEPT verb. 


ALCOM 


Alpha Compare 


YAQ 


483 


483 


Alphabetic record with subfields compared to 
any data item . 


DIVDE 


Divide 


DIV 





368 


Use of DIVIDE, exponentiation, or/. 


DIVMC 






7 


10 


In-line expansion of divide function. 


DSPLY 


Display 


ZDY 


586, (621)^ 


586, (621)1" 


Useof DISPLAY verb. 


EDITl 


Editing 


ZET 


348 


348 


Use of the following: 

(1) COBOL zeros; 

(2) Floating plus or minus; 

(3) DB or single plus. 


EXPIN 


Exponentiation 1 


ZFZ 


480 


486 


When an expression is raised by an integer 
exponent. 


EXPNI 


Exponentiation 2 


ZXZ 


1899 


1930 


When an expression is raised to an exponent 
other than an integer. 


FGCOM 


Compare Figcon 


YCL 


414 


414 


Record with subfields being compared to a 
figurative constant whose SIZE is greater 
than 1. 


GOTOD 


Go To Depending 


ZGP 


156 


156 


Use of GO TO DEPENDING statement. 


IFALP 


If Alphabetic 


YIP 


166 


166 


All fields whose sizes are greater than 1 which 
are being tested for alphabetic data. 


IFNUM 


If Numeric 


YIN 


148 


148 


All fields whose sizes are greater than 1 which 
are being tested for numeric data . 


INDIX 


Index 


ZSP 


79 


79 


Used when any of the other subroutines are 
called for except multiply and divide. 


LDNGO 












Sets permanent switch to influence macro 
expansions. 


MAC OP 












Sets permanent switch to influence macro 
expansions. 


MPYMC 






7 


10 


In-line expansion of multiply function. 


MULTY 


Multiply 


MPY 





371 


Use of MULTIPLY, exponentiation or *. 


MVALL 


Move All 


ZML 


312 


312 


When the receiving field is a group item. 


MVFTR 


AAove Field to Record 


ZMR 


443 


443 


When records of unequal length and subfields 
are involved in a MOVE statement. 


OVLAY 






4 


4 


Use of the VALUE clause for non-88 level 
data items. 


SPLIT 


• Stop Literal 


SLT 


133, (28)^ 


133, (28)^ 


Use of the literal option of the STOP verb. 


SUBSl 


Subscript 1 


XXJ 


221 


221 


Use of single-depth subscripting. 


SUBS2 


Subscript 2 


XXK 


269 


269 


Use of double-depth subscripting. 


SUBS3 


Subscript 3 


XXL 


318 


318 


Use of triple-depth subscripting. 


XAMIN 


Examine 


XMN 


356 


356 


Useof EXAMINE verb. 



* AA/D The size of the subroutine when the multiply/divide special feature is incorporated in the 1401, 1440, or 1460. 

No M/D The size of the subroutine when the multiply/divide special feature is not incorporated in the 1401, 1440, or 1460. 

t The first entry applies to the 1401 and 1460. The entry within the parentheses applies to the 1440, 

A The first entry applies to a 1440 or 1460 system with a console printer. The entry within the parentheses applies to a 1440 
or 1460 system with no console printer. The SPLIT macro is not applicable to a 1401 system. 

Figure 21. cobol Macros 



51 



o 



o 
o 
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o 



§- 



•n 









COBOL COMPILATION 






SEQUENCE 




CARD IMAGE 






[DENTIFICATION 


10 


001010 


IDENTIFICATION DIVISION. 






SAMPLE-3 


20 


001020 


PROGRAM-IO. aCOBQL SAMPLES. 






SAHPLE-3 


30 


001030 


REMARKS. A PROGRAM TO CALCULATE THE WEEKLY AND ANNUAL SALARY 


SAMPLE-3 


<tO 


001040 




ASSOCIATED WITH A GIVEN MONTHLY SALARY. MONTHLY SALARY 


SAHPLE-3 


50 


001050 




STARTS AT 500 AND IS INCREASED BY 10 


UNTIL IT EQUALS 1000. 


SAMPLE-3 


60 


001060 


ENVIRONMENT DIVISION. 






SAMPLE-3 


70 


001070 


CONFIGURATION SECTION. 






SAMPLE-3 


80 


001080 


SOURCE-COMPUTER. IBM-1460. 






SAMPLE-3 


90 


001090 


OBJECT-COMPUTER. IBM-1460 






SAMPLE-3 


100 


001100 




MEMORY SIZE 4000 CHARACTERS NO-OVERLAP. 


SAMPLE-3 


110 


OOlllO 


INPUT-OUTPUT SECTION. 






SAMPLE-3 


120 


001120 


FILE-CONTROL. 






SAMPLE-3 


130 


001130 




SELECT SALARY-FILE ASSIGN 


TO 1403-P 




SAMPLE-3 


140 


001140 




RESERVE NO ALTERNATE AREA. 






SAMPLE-3 


150 


002010 


DATA DIVISION. 






SAHPLE-3 


160 


002020 


FILE SECTION. 






SAMPLE-3 


170 


002030 


FD 


SALARY-FILE 






SAMPLE-3 


180 


002040 




LABEL RECORDS ARE OMITTED 






SAMPLE-3 


190 


002050 




DATA RECORD IS OUTPUT-RECORD. 




SAMPLE-3 


200 


002060 


01 


OUTPUT-RECORD 


PICTURE 


XS132a. 


SAMPLE-3 


210 


002070 


WORKING-STORAGE SECTION. 






SAMPLE-3 


220 


002080 


01 


SALARY-RECORD. 






SAMPLE-3 


230 


002090 




02 FILLER 


PICTURE 


XXSOa VALUE IS SPACES. 


SAMPLE-3 


240 


002100 




02 HEEKLY-DETAIL-LINE 


PICTURE 


IZl.ll. 


SAMPLE-3 


250 


002110 




02 FILLER 


PICTURE 


X«5n VALUE IS SPACES. 


SAMPLE-3 


260 


002120 




02 MONTHLY-DETAIL-LINE 


PICTURE 


1117. IZ, 


SAHPLE-3 


270 


002130 




02 FILLER 


PICTURE 


XX5n VALUE IS SPACES. 


SAHPLE-3 


280 


002140 




02 ANNUAL-OETAIL-LINE 


PICTURE 


It5a.ll. 


SAMPLE-3 


290 


002150 


01 


HEADING-RECORD. 






SAMPLE-3 


300 


002160 




02 FILLER 


PICTURE 


XXSOn VALUE IS SPACES. 


SAHPLE-3 


310 


002170 




02 WEEKLY-HEADING-LINE 


PICTURE 


AZ6n VALUE aWEEKLYd. 


SAMPLE-3 


320 


002 180 




02 FILLER 


PICTURE 


XtSa VALUE IS SPACES. 


SAHPLE-3 


330 


002190 




02 MONTHLY-HEADING-LINE 


PICTURE 


A«7n VALUE aMONTHLYS. 


SAHPLE-3 


340 


002200 




02 FILLER 


PICTURE 


Xt6n VALUE IS SPACES. 


SAHPLE-3 


350 


002210 




02 ANNUAL-HEADING-LINE 


PICTURE 


At6n VALUE aANNUALa. 


SAMPLE-3 


360 


003010 


01 


CORRECT-MESSAGE. 






SAMPLE-3 


370 


003020 




0? FILLER 


PICTURE 


X«5n VALUE IS SPACES. 


SAHPLE-3 


380 


003030 




02 TABLE-IS-CORRECT 


PICTURE 


AS32a VALUE IS 


SAMPLE-3 


390 


003040 




a TABLE VALUES ARE 


CORRECT 


a. 


SAMPLE-3 


400 


003050 


01 


INCORRECT-MESSAGE. 






SAMPLE-3 


410 


003060 




02 FILLER 


PICTURE 


X«52n VALUE IS SPACES. 


SAMPLE-3 


420 


003070 




02 TABLE-IS-NOT-CORRECT 


PICTURE 


At28n VALUE IS 


SAMPLE-3 


430 


003080 




STABLE VALUES ARE NOT 


CORRECTa. 




SAHPLE-3 


440 


003090 


77 


HASH-TOTAL-COUNTER-WEEKLY 


PICTURE 


9X6aV99 VALUE IS ZERO. 


SAMPLE-3 


450 


003100 


77 


HASH-TOTAL-COUNTER-MONTHLY 


PICTURE 


9X6nV99 VALUE IS ZERO. 


SAMPLE-0 


460 


003110 


77 


HASH-TOTAL-COUNTER-ANNUAL 


PICTURE 


9«6aV99 VALUE IS ZERO. 


SAMPLE-3 


470 


003120 


77 


WEEKLY-PAY 


PICTURE 


999V99. 


SAHPLE-3 


480 


003130 


77 


MONTHLY-PAY 


PICTURE 


9999V99. 


SAHPLE-3 


490 


003140 


77 


ANNUAL-PAY 


PICTURE 


9X5nV99. 


SAHPLE-3 


500 


003150 


CONSTANT SECTION. 






SAMPLE-3 


510 


003160 


77 


HASH-TOTAL-OF-WEFKLY-PAY 


PICTURE 9?6nV99 VALUE 008826.69. 


SAHPLE-3 


520 


003170 


77 


HASH-TOTAL-OF-MONTHLY-PAY 


PICTURE 9X6aV99 VALUE 038250.00. 


SAHPLE-3 


530 


003180 


77 


HASH-TOT AL-OF-ANNUAL-PAY 


PICTURE 9X60V99 VALUE 459000.00. 


SAMPLE-3 


540 


004010 


PROCEDURE DIVISION. 






SAMPLE-3 


550 


004020 


START. 






SAMPLE-3 


560 


004030 




OPEN OUTPUT SALARY-FILE. 






SAMPLE-3 


5 70 


004040 




WRITE OUTPUT-RECORD FROM HEADING-RECORD 


SAMPLEt3 



> 

■D 

T3 

(D 

3 
Q. 

X 



n 
O 

DO 

O 

^■ 

Q 

3 



o 

-I 

3 



o 



S80 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 



004050 
004060 
004070 
004080 
004090 
004100 
004110 
004120 
004130 
004140 
004150 
004160 
004170 
004180 
004190 
004200 
004210 
005010 
005020 
005030 
005040 
005050 
005060 
005070 
005080 
005090 
005100 



BEFORE ADVANCING 2 LINES. 
PERFORM CALCULATIONS 

VARYING MONTHLY-PAY 
FROM 500 
BY 10 

UNTIL MONTHLY-PAY IS GREATER THAN 1000. 
TEST-HASH-TOTALS. 

IF HASH-TOTAL-COUNTER-WEEKLY # HASH-TOTAL-OF-WEEKLY-PAY 
AND HASH-TOTAL-COUNTER-MONTHLY # HASH-TOT AL-OF-MONTHLY-PAY 
AND HASH-TOTAL-COUNTER-ANNUAL # HASH-TOTAL-OF-ANNUAL-PAY 

MOVE CORRECT-MESSAGE TO OUTPUT-RECORD 
OTHERWISE 

MOVE INCORRECT-MESSAGE TO OUTPUT-RECORD. 
WRITE OUTPUT-RECORD 

AFTER ADVANCING 2 LINES. 
CLOSE SALARY-FILE. 
STOP RUN. 
CALCULATIONS. 

COMPUTE WEEKLY-PAY # 3 * 
COMPUTE ANNUAL-PAY # 12 » 



MONTHLY-PAY / 
MONTHLY-PAY. 



13. 



MOVE ANNUAL-PAY 



MOVE WEEKLY-PAY TO WEEKLY-OETAIL-L INE. 
MOVE MONTHLY-PAY TO MONTHLY-DETAIL-LINE. 
TO ANNUAL-DETAIL-LINE. 
TO HASH-TOTAL-COUNTER-WEEKLY. 
MONTHLY-PAY TO HASH-TOTAL-COUNTER-MONTHLY. 
ANNUAL-PAY TO HASH-TOTAL-COUNTER-ANNUAL. 



AOFJ 
ADD 
ADD 



WEEKLY-PAY 



WRITE OUTPUT-RECORD FROM SALARY-RECORD. 



SAMPLE-3 
SAMPLE-3 
SAMPLE-3 
SAMPLE-3 
SAMPLE-3 
SAMPLE-3 
SAMPLE-3 
SAMPLE-3 
SAMPLE-3 
SAMPLE-3 
SAMPLE-3 
SAMPLE-3 
SAMPLE-3 
SAMPLE-3 
SAMPLE-3 
SAMPLE-3 
SAMPLE-3 
SAMPLE-3 
SAMPLE-3 
SAMPLE-3 
SAMPLE-3 
SAMPLE-3 
SAMPLE-3 
SAMPLE-3 
SAMPLE-3 
SAMPLE-3 
SAMPLE-3 
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C/2 


O 
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o 




Od 


R 


►1 
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3 


3 


05 




1^3 


13^ 






O 


a 


g, 


CO 
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TYPE NAME 



FILE 


AlO 


REC 


All 


DATA 


A12 


DATA 


A13 


DATA 


A14 


DATA 


A15 


DATA 


A16 


DATA 


A17 


DATA 


A18 


DATA 


Aig 


DATA 


AZO 


DATA 


A21 


DATA 


A22 


DATA 


A23 


DATA 


A2* 


DATA 


A25 


DATA 


A26 


DATA 


A27 


DATA 


A28 


DATA 


A29 


DATA 


A30 


DATA 


A31 


DATA 


A32 


PROC 


JOl 


PROC 


J02 


PROC 


J03 



SOURCE 

SALARY-FILE 

OUTPUT-RECORD 

SALARY-RECORD 

WEEKLY-DETAIL-LINE 

MONTHLY-OETAIL-LINE 

ANNUAL-DETAIL-LINE 

HEADING-RECORD 

WEEKLY-HEADING-LINE 

MONTHLY-HEAD I NG-L I NE 

ANNUAL-HEADING-LINE 

CORRECT-MESSAGE 

TABLE-IS-CORRECT 

INCnRRECT-MESSAGE 

TABLE- iS-NOT-CORRECT 

HASH-TOTAL-COUN TER-WEEKLY 

HASH-TOTAL-COUNTER-MONTHLY 

HASH-TOTAL-COUNTER-ANNUAL 

WEEKLY-PAY 

MONTHLY-PAY 

ANNUAL-PAY 

HASH-TOTAL-OF-WEEKLY-PAY 

HASH-TQTAL-OF-MONTHLY-PAY 

HASH-TOT AL-OF-ANNUAL-PAY 

START 

CALCULATIONS 

TEST-HASH-TOTALS 

END OF CaM«>ILATION 
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to 
to 






£5 








nOJ009 


01662 


no MO 10 


01702 


ACM 


01426 


•n 


AOW 


01499 


o 


A12 


00605 


1-1 


Air 


00662 


g 


A22 


00805 




A2 7 


00835 


ha 


A32 


00872 


A37 


00667 


){:» 


^'^2 


00383 


FAll 


00343 


14, 


lOCRXl 


00089 


00 


JAl 


02019 




JSl 


01979 




LAll 


00392 




LTORGX 


01382 




STARTS 


01649 




S02034 


01900 




S05 


01730 




SIO 


00361 




XI 


00089 




ZMRAAA 


00968 




7MRJST 


00278 




ZMRRSZ 


00268 




ZMROOl 


00975 




ZMR006 


01108 




ZSP 


01293 




ZSPSV2 


01367 



LABEL TABLE 



nOJOlO 


01690 


nOMOll 


01999 


AOJ 


01503 


A OX 


01481 


A13 


005 80 


A18 


00674 


A23 


00805 


A28 


00841 


A33 


005 74 


A38 


00680 


A 43 


00391 


GNN 


01446 


I0CRX2 


00094 


JA4 


01958 


JOl 


01649 


LA12 


00525 


MVEOVR 


01755 


SOI 


01657 


S02035 


01933 


306 


01738 


Sll 


00 365 


X3 


00099 


ZMRAAB 


01022 


ZMRLHR 


00 261 


ZMRSFO 


00271 


ZMR002 


01043 


ZMR008 


01150 


ZSPINI 


01349 


ZSPSV3 


01372 



nOJOll 


01987 


a0M0l6 


02253 


AOK 


01502 


A05 


01386 


A14 


00592 


A19 


00686 


A24 


00814 


A29 


00848 


A34 


00585 


A39 


00692 


CNR 


01471 


I A 10 


00343 


IQCRX3 


00099 


JJl 


01744 


J02 


02019 


LA16 


00607 


OVRLAY 


01649 


S02 


01664 


S02041 


02014 


S07 


01746 


S12 


00366 


ZAl 


01588 


ZMRADJ 


01232 


ZMRLHS 


00258 


ZMRSSB 


00272 


ZMR003 


00987 


ZMR009 


01164 


ZSPIN2 


01338 



n0J012 


02013 


AAO 


02254 


AOQ 


01500 


AlO 


0052 3 


A15 


00605 


A20 


00724 


A25 


00822 


A30 


00856 


A35 


00597 


A40 


00777 


CNT 


01474 


lOCGMW 


00339 


lOCSWT 


00340 


JJ2 


01772 


J03 


01834 


LA20 


00688 


SHR 


01406 


S02029 


01823 


303 


01670 


308 


01754 


313 


00368 


ZA2 


01628 


ZMRCTR 


01231 


ZMRRFD 


00264 


ZMR3SZ 


00275 


ZMR004 


01029 


ZMROIO 


01282 


ZSPOUT 


01356 



aOJ016 


02241 


AAl 


01744 


AOR 


01501 


All 


00523 


A16 


00686 


A21 


00724 


A26 


00830 


A31 


00864 


A36 


00656 


A41 


00 376 


OAl 


01568 


lOCRET 


00347 


lOCUXT 


00334 


JJ3 


01772 


LAIO 


00392 


LA22 


00726 


SSI 


01827 


S02033 


01867 


S04 


01702 


309 


00359 


314 


00370 


ZMR 


00873 


ZMREXT 


01225 


ZMRRSB 


00265 


ZMROOO 


00933 


ZMR005 


01094 


ZMROll 


01216 


Z3PSV1 


01362 
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aCOBOL SAMPLES 






PAGE 1 




SEQ PGLIN LABEL OPCD OPERAND 


SFX CT 


LOCN 


INSTRCTN A-ADD B-ADD 


.FLAGS 


0001 0102 JOB aCOBOL SAMPLES 










0002 0103 CTL I 110 L 03701D 










0003 0104* DIOCS 










0004 0105* DIOCSORG 00334 










0005 0106* inOEVICES PRINTER 










0006 * ORG 87 




087 






0007 * lOCKXl DCW 3 3 


3 


089 






0008 * DC a 3 


2 


091 






0009 * 10CRX2 DCW 3 3 


3 


094 






0010 * DC 3 a 


2 


096 






OOll * IQCRX3 DCW 3 H 


3 


099 






0012 * ORG 00 334 




334 






0013 * lOCUXT B UNIVERSAL EXIT 4 


334 


BOOO 




0014 * DCW a 3,G BLANK 


1 


338 






0015 * lOCGMW EQU * GROUP MARK - WORD MARK 




339 






0016 * lOCSWT DC 3 3 


1 


340 






0017 0107* OTF lAlO 










OOlfl 0108* FILETVPE PRINTER 










0019 0109* lOAREAS LAlO 










0020 * DCW 3.93 


2 


342 






0021 * lAlO 8 lOCUXT 


4 


343 


B334 334 




0022 * lOCRET BIN IAlO-2,4= TEST PRINTER ERROR 5 


347 


B341+ 341 




0023 * BIN lOCUXT, 


5 


352 


B334 334 




0024 0110 MACOPfl 






**MACRO** 




0025 0111 S09 DCW 35003 


3 


359 






0026 0112 SIO DCW 3103 


2 


361 






0027 0113 Sll DCW 310003 


4 


365 






0028 0114 S12 DCW 333 


I 


366 






0029 0115 S13 DCW 3133 


2 


368 






0030 0116 S14 DCW 3123 


2 


370 






0031 0117 A41 DCW 3 0. 03 


6 


376 






0032 0L18 A42 DCW 3 0. 03 


7 


383 






0033 0119 A43 DCW 3 0. 03 


8 


391 






0034 0120 LAlO EQU *Gl 




392 






0035 0121 LAll EQU *6l 




392 






0036 0122 FAll EQU lAlO 




343 






0037 0123 DCW *50 




441 






003B 0124 All DS 00082 




523 






0039 0125 ORG 




524 






0040 0126 ORG *~1 




523 






0041 0127 DA 1X1, G 




523 


00523 




0042 0128 AlO EQU All 




523 






0043 0129 LA12 EQU *61 




525 






0044 0130 A33 DCW 450 




574 






0045 0131 A13 DCW Hb 




580 






0046 0132 A34 DCW #5 




585 






0047 0133 A14 DCW #7 




592 






0048 0134 A35 DCW #5 




597 






0049 0135 A15 DCW #8 




605 






0050 0136 A12 EQU * 




605 






0051 0137 ORG 




606 






0052 0138 ORG *-l 




605 






0053 0139 DA IXl.G 




605 


00605 




0054 0140 LA16 EOU *&1 




607 






0055 0141 A36 OCW #50 




656 






0056 0142 A17 DCW »6 




562 
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SEQ 


PGLIN 


LABtL 


OPCD 


OPERAND 


SFX CT LOCN 


INSTRCTN A-ADD B-ADD .FLAGS 




0057 


0143 


A37 


DCW 


#5 


667 


• 




0058 


0144 


Alt 


DCW 


#7 


674 








0059 


0145 


A38 


DCW 


#6 


680 








0060 


0146 


A19 


DCW 


#6 


686 








0061 


0147 


A16 


EQU 


♦ 


686 








0062 


0148 




ORG 




687 








0063 


0149 




OKG 


*-l 


686 








0064 


0150 




DA 


1X1, G 


636 


00636 






0065 


0151 


LA20 


EQU 


*C1 


688 








0066 


0152 


A39 


DCW 


»5 


692 








0067 


0153 


A21 


DCW 


#32 


724 








0068 


0154 


A20 


EQU 


* 


724 








0069 


0155 




ORG 




725 








0070 


0156 




ORG 


*-l 


724 








0071 


0157 




DA 


1X1, G 


724 


00724 






0072 


0158 


LA22 


EQU 


*£1 


726 








0073 


0159 




DCW 


#50 


775 








0074 


0160 


A40 


OS 


00002 


777 








0075 


0161 


A23 


DCW 


#28 


805 








0076 


0162 


A22 


EQU 


♦ 


805 








0077 


0163 




ORG 




806 








0078 


0164 




ORG 


*-l 


805 








0079 


0165 




DA 


IX1,G 


805 


00805 '. 






0080 


0166 


A?4 


DCW 


#8 


814 









0363 * 


MRCM LAlO, 201 MOVE RECORD 


7 


1992 


P392201 


392 


201 




0364 * QOMOll W PRINT 


1 


1999 


2 








0365 0330 


CLOSEIAIO 






**MACRO** 








0366 * 


MLC n0J0l2,IQCUXTfi3 CLOSE lAlO 


7 


2000 


M- I 33 37 


2013 


337 




0367 ♦ 


B IA10G4 


4 


2007 


B347 


347 






0368 * aOJ012 DCW a0J012ei RETURN AFTER CLOSE lAlO 3 


2013 


-14 


2014 






0369 0331 S02041 H 


1 


2014 


, 








0370 0332 


B S02041 


4 


2015 


B-14 


2014 






0371 0333 J02 


EQU *&l 




2019 










0372 0334 


2A S12£000,DA1-064 


7 


2019 


a366V04 


366 


1504 . 




0373 0335 


MPYMCA28£000,DAl-057 
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03 74 * 


H A28e000,DAl-057 


7 


2026 


3841V11 


841 


1511 . 




0375 0336 


ZA E00,ZAie20 


7 


2033 


GK60W0a 


2260 


1608 . 




0376 0337 


A DAl-057,ZA160006002 


7 


2040 


AV11V90 


1511 


1590 . 




0377 0338 


ZA COO, DAI 


7 


2047 


6K60V68 


2260 


1568 , 




0378 0339 


SW DAl-023 


4 , 


2054 


,V45 


1545 






0379 0340 


ZA ZA1G002,0A1-001 


7 


2058 


aV90V67 


1590 


1567 ', 




0380 0341 


MLZS DA1-001,0A1 


7 


2065 


YV67V68 


1567 


1568 




0381 0342 


MLZS a a,DAl-001 


7 


2072 


YK61V67 


2261 


1567 . 




0382 0343 


DIVMCS13E000,OAl-O20 






**MACRO** 








0383 * 


S13E000,DAl-020 


7 


2079 


«368V48 


368 


1548 . 




0384 0344 


ZA 600,GNNe20 


7 


2086 


£K60U66 


2260 


1466 . 




0385 0345 


A rjAl-003,GNN£002e01 


7 


2093 


AV65U49 


1565 


1449 




0386 0346 


CW DAl-023 


4 


2100 


nV45 


1545 






0387 0347 


MLZS GNN6003,GNN6002 


7 


2104 


YU49U48 


1449 


1448 . 




0388 0348 


ZA GNN6002,A27 


7 


2111 


eU48835 


1448 


835 




0389 0349 


ZA Sl4tOOO,DAl-063 


7 


2118 


S370V05 


370 


1505 , 




0390 0350 


MPYMCA26e000,0Al-056 






**MACRO** 








0391 * 


M A28£;000,DAl-056 


7 


2125 


ffl841Vl2 


841 


1512 . 




039^ 03 5i 


ZA_ DAl-056iA29 


_ 7_ 


213? . 


. 6V12148 
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S6Q 


PGLIM 


LABEL 


OPCO 


OPERAND 




SEX CT 


LOCN 


INSTRCTN 


l\-ADD 


B-ADD .FLAGS 


0393 


0352 




MLCWA 


A4l,A13 




7 


2139 


L376580 


376 


580 . 


039* 


035 3 




MCE 


A27£000,A13 




7 


2146 


E835580 


835 


580 




0395 


354 




sw 


A13-006E01 




4 


2153 


,575 


575 






0396 


0355 




MLCWA 


A42,A14 




7 


2157 


L383592 


383 


592 




0397 


0356 




MCE 


A28E000fAl4 




7 


2164 


EB415 92 


841 


592 




0398 


0357 




SW 


A14-007G01 




4 


2171 


,586 


586 






0399 


0358 




MLCWA 


A43,A15 




7 


2175 


L391605 


391 


605 




0400 


0359 




MCE 


A29£000,A15 




7 


2182 


E848605 


848 


605 




0401 


0360 




SW 


A15-008e01 




4 


2189 


,59 8 


598 






0402 


0361 




A 


A27eO0O,A24G0O0 




7 


2193 


A835814 


835 


814 . 




0403 


0362 




A 


A28f.000,A25G000 




7 


2200 


A841822 


841 


822 . 




0404 


363 




A 


A29E000,A26E000 




7 


2207 


A848330 


848 


830 




0405 


0364 




B 


ZMR 




4 


2214 


B873 


873 






0406 


0365 




DCW 


All 




3 


2220 


523 


523 






0407 


0366 




DCW 







1 


2221 










040S 


0367 




DCW 


132 




3 


2224 










0409 


0368 




DCW 


A12 




3 


2227 


605 


605 






0410 


0369 




DCW 







I 


2228 










0411 


0370 




DCW 


081 




3 


2231 










0412 


0371 




DCW 


aooLa 




3 


2234 










0413 


0372 




PUT 


LAIO.IAIO 








♦♦MACRO** 








0414 


* 







n0J016 




4 


2235 


BK41 


2241 






0415 


* 




new 


a).9S PRINTER 


ERROR - PRESS START 


2 


2240 










0416 


* 


a0J016 


8tN 


*-6,+ TEST PRINTER ERROR 


5 


2241 


BK39«= 


2239 






0417 


* 




MRCM 


LA10,201 


MOVE RECORD 


7 


2246 


P392201 


392 


201 . 




0418 


* 


aOM016 


W 




PRINT 


I 


2253 


2 








0419 


0373 


AAO 


NOP 


AAl 




4 


2254 


NX44 


1744 






0420 


0374 




END 


STARTS 








W49 


1649 






0421 






LTRL 


ana 




1 


2258 










0422 






LTRL 


GOO 




2 


2260 










0423 






LTRL 


3 ^ 




1 


2261 










0424 






LTRL 


aNia 




I 


2262 


















END OF LISTING 




NO 


SEQUENCE ERRORS 







CORE LOAD HEADER-aCOBOL SAMPLES 

CORE LOAD OUTPUT COMPLETE ON 1311 UNIT 0, START 000100, END 000152 



10- 



^ 



a. 

00 

o 





WEEKLY 


MONTHLY 


ANNUAL 






115.38 


500.00 


6000.00 






117.69 


510.00 


6120.00 






120.00 


520.00 


6240.00 






122.30 


530.00 


6360.00 






124.61 


540.00 


6480.00 






126.92 


550.00 


6600.00 






129.23 


560.00 


6720.00 






131.53 


570.00 


6840.00 






133.84 


580.00 


6960.00 






136.15 


590.00 


7080.00 






138.46 


600.00 


7200.00 






140.76 


610.00 


7320.00 






143.07 


620.00 


7440.00 






145.38 


630.00 


7560.00 






147,69 


640.00 


7680.00 






150.00 


650.00 


7800.00 






152.30 


660.00 


7920.00 






154.61 


670.00 


8040.00 






156.92 


680.00 


8160.00 






159.23 


690.00 


8280.00 






161.53 


700.00 


8400.00 






163.84 


710.00 


8520.00 






166.15 


720.00 


8640.00 






168.46 


730.00 


8760.00 






170.76 


740.00 


8880.00 






173.07 


750.00 


9000.00 






175.38 


760.00 


9120.00 






177.69 


770.00 


9240.00 






180.00 


780.00 


9360.00 






182.30 


790.00 


9480.00 






184.61 


800.00 


9600.00 






186.92 


810.00 


9720.00 






189.23 


820.00 


9840.00 






191.53 


830.00 


9960.00 






193.84 


840.00 


10080.00 






196.15 


850.00 


10200.00 






198.46 


860.00 


10320.00 






200.76 


870.00 


10440.00 






203.07 


880.00 


10560.00 






205.38 


890.00 


10680.00 






207.69 


900.00 


10800.00 






210.00 


910.00 


10920.00 






212.30 


920.00 


11040.00 






214.61 


930.00 


11160.00 






216.92 


940.00 


11280.00 






219.23 


950.00 


11400.00 






221.53 


960.00 


11520.00 






223.84 


970.00 


11640.00 






226.15 


980.00 


11760.00 






228.46 


990.00 


11880.00 






230.76 


1000.00 


12000.00 
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ACEPT Macro 9 

ALCOM Macro 9 

ASGN Cards 8, 25 

Assembler 5 

Assembly 5 

Autocoder Assembler Program 6, 9 

Autocoder Library 6, 37, 38 

Autocoder System 37, 38 

Autocoder Text 21, 22 

Batched Files 5, 28 

Building a COBOL System 36, 38 

Card Boot 5 

Changing File Assignments 25 

Clear Disk 38, 39 

COBOL Compiler 6, 8 

COBOL Compiler Output 13 

COBOL Diagnostic Messages 13 

COBOL Macros 6, 9, 38, 41 

COBOL RUN 7, 21 

COBOL RUN THRU AUTOCODER 7, 21 

COBOL RUN THRU OUTPUT 7, 22, 36 

COBOL RUN THRU EXECUTION 7, 23 

COBOL Sample Program 38 

COBOL System 

Building a 36, 38 

Components of 6 

Deck Description 36, 37 

Definition of 6 

Features of 6 

Updating a 42 

COBOL Update 38, 41 

Condensed Loader Format 29 

CONTROL ASGN 24, 42 

Control Cards 7 

CONTROL File 7, 27 

CORELOAD ASGN Card 25, 42 

CORELOAD File 7 

Cross Reference List 21 

Deck Description 36, 37 

Definition of Key Terms 5 

Diagnostic Messages 15, 16, 17, 18, 19 

Dictionary 13 

DIVDE Macro" 9 

DSPLY Macro 9 

EDITl Macro 9 

EXPIN Macro 9 

EXPNI Macro 9 

External Files 7 

FGCOM Macro 9 

i^iie CjOnsi\-i.erai-ions ^^ 

Files, Batched 27 

Files, Logical (See Logical Files) 

GOTOD Macro 11 

HALT Card 8 

Halts and Messages 30, 31, 32, 33, 34, 35 

INPUT ASGN Card 24, 42 

IFALP Macro 11 



IFNUM 11 

INDIX Macro 11 

INPUT FILE 7, 27 

Internal Files 7 

IOCS . , 6, 9 

Jobs 

Definition of 5 

Performing 28 

Preparing 20 

Processor 20 

Stacked 28 

Update 20, 41 

Label Table 21, 22, 23 

LIBRARY ASGN Card 24, 42 

Library, Autocoder 37, 38 

LIBRARY FILE 7 

LIST ASGN Card 24, 42 

LIST File 7, 13, 27 

Listing, Program 13 

Load-and-Go 23 

Loader, Condensed 29 

Loading Object Programs 29 

Logical Files 

Assumed Assignments 24, 42 

Batched 7, 28 

Changing Assignments 24, 25, 26, 27 

Considerations 25, 27 

Definition of 5 

External 7 

Function of 6 

Internal 7 

Operation 7 

Residence 7 

Machine Operator 2 

Machine Requirements 5 

Marking Program 37 

MESSAGE ASGN Card 24, 42 

MESSAGE File 7, 27 

MULTY Macro 11 

MVALL Macro 11 

MVFTR Macro 12 

Name-Associated Diagnostics 13 

NOTE Card 8 

Object Time 5 

Operating Procedures 20 

Operation 5 

Operation Files 7 

OUTPUT ASGN Card 24, 42 

OUTPUT File 7, 27 

Output, Listed 13, 21, 22, 23 

Output Options 21, 22, 23 

PAUSE Card 8 

Phase Descriptions 44 

Preparing ASGN Cards 25 

Processor Jobs 20, 21, 22, 23 

Program, Source 20 

Program, System Control 6 

Quiilification Table 13 
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Related Informatirai 2 

Residence File 7 

RUN Card 7 

Sample Program 42 

Self -Loading Format 29 

Source Deck, Composition of 20 

Source Program 20 

Source Program Listing 13 

Source Statement Diagnostics 13 

SpHt Cylinder 27 

SPLIT Macro 12 

Stack 

Definition of 5 

Preparation of 28 

Running a 29 

SUBSl Macro 12 

SUBS2 Macro 12 

SUBS3 Macro 12 

System 5 

SYSTEM ASGN Card 24, 42 

System Control Modification 38, 39 



System Control Program 6 

SYSTEM File 7, 27 

Text, Autocoder 21, 22 

Timing Considerations 27 

UPDAT Card 8 

Update 8 

Update Jobs 20 

Updating a COBOL System 42 

User-Assignments (Logical Files) 24 

Using ASGN Cards 28 

WORK ASGN Card 24, 42 

WORKl File 7, 27 

WORK2 File 7, 27 

WORK3 File 7, 27 

WORK4 File 7, 27 

WORKS File 7, 13, 27 

Write File-Protected Addresses 38, 40 

XAMIN Macro 12 
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